Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
rs.Open strsql, conn

Set DataGrid1.DataSource = rs
End Sub

如何选定某部分字段且该字段必须符合条件的数据在DBGrid表上显示呢?

可以改了
Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
set rs=new adodb.recordser
rs.Open strsql, conn

Set DataGrid1.DataSource = rs
End Sub
可以运行了

可以改了，上面还少了一个东东
Private Sub Command1_Click()
conn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=his;Data Source=abcd\HIS"
strsql = "select * from 药品基本信息 where 药品编号 like '" & Text1 & "'"
set rs=new adodb.recordser
rs.Open strsql, conn，adOpenStatic

Set DataGrid1.DataSource = rs
End Sub
可以运行了