如何在VB的窗体实现像ACCESS里面窗体的数据查询和计算

如图输入物料代码之后就可以显示材料名称，材料规格等等

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

dataname=数据库路径

conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & dataname
sql = "select * from 表名 where 材料代码 = '"  Combo1 & "'"

rs.Open sql, conn, adOpenStatic, adLockReadOnly

'读入控件

text1=rs!材料名称

text2=rs!规格型号

……

rs.close
根据实际情况修改黑体字部分的字段名、表名和控件名