请叫高手一个问题

[xia_jxs_doe]

我是一个VB初学者;请高手指教.谢谢
目前用VB6.0开发一个小程序遇到了一个我不能解决的问题:我想用ADO控件访问ACCESS(2003版)数据库中数据,然后赋给一个String变量,然后在文本框上显示.具体代码如下:

Private Sub Cmd_denglu_Click(Index As Integer)
Dim reg_name1 As String
Dim cn As New ADODB.Connection '建立一个连接对象
Dim rs As New ADODB.Recordset '记录对象
Set cn = New ADODB.Connection '设置连接对象实例
cn.CursorLocation = adUseClient

cn.Open "provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\材料表自动生成系统\身份管理.mdb" '打开数据源连接
Set rs = New ADODB.Recordset '设置记录集对象实例
Set rs.ActiveConnection = cn
reg_name1 = "select 姓名 from 身份信息 where 姓名 like reg_name" 'reg_name是键盘输入的用户名
Tex_rge3.Text = reg_name1

'结果在文本框显示的是 "select 姓名 from 身份信息 where 姓名 like reg_name"
End Sub

[古今多少事]

rs.Source = "select 姓名 from 身份信息 where 姓名 like reg_name" 'reg_name是键盘输入的用户名
rs.Open

[netwar]

reg_name1 = "select 姓名 from 身份信息 where 姓名 like '%" & reg_name & "%'"

[xia_jxs_doe]

我已经自己解决了 谢谢