VB数据库编程怎样将一个表里面的一个字段的记录赋值给一个字符串

VB数据库编程怎样将一个表里面的一个字段的记录赋值给一个
数据库用ACCESS做的,请高手指点在VB中怎样将一个表里面的一个字段的记录赋值给一个变量呢??
例如:一个叫"姓名"的字段里有一个记录"张三",怎样将"张三"赋值给一个字符串变量呢?

Dim str as String
Dim rst as ADODB.RecordSet
set rst=new ADODB.RecordSet
Dim SQL as String
SQL="select 姓名 from 表名 where 姓名='张三'"
rst.Open SQL,Con,1,3
str=rst(0).Value