我想用VB获取数据库中的一段数据，并返回数据的同一列的值 不知道那些错，去大神帮助
Public Sub Button1_Click()Dim usr As New SunUser
usr.BindCurrentUser
Dim ds As New SunDataset
Dim sql As String
Dim usrid As String
Dim var As Variant
Dim db As SunDatasource
db.Open "HYBQ" , dbReadWrite
usrid = usr.Name
sql = "select NAME from test where user_id = " + usrid
ds.CreateDataset sql , var
MsgBox ds.CellData(1,2)
db.Close
ComboBox1.Text = sql
End Sub
