试试如下的代码:
Public db As New Connection
Set db = New Connection
db.ConnectionTimeout = 30
db.CursorLocation = adUseClient
db.Open "PROVIDER=MSDASQL;dsn=数据库DSN;uID=;pwd=;database=数据库DSN;"
Dim rst As New Recordset
Set rst = New Recordset
rst.Open "select * from 底图 where 底图.图名='" + MapName.Text + "'", db, adOpenDynamic, adLockOptimistic
If rst.RecordCount = 1 Then
ProjectName.Text = rst.Fields("项目")
MapType.Text = rst.Fields("图别")
MapNumber.Text = rst.Fields("图号")
MapMemo.Text = rst.Fields("备注")
End If
rst.Close
Set rst = Nothing