我要制作一个简单VB查询系统，只要输入产品号，就可以调出该货物的所有信息！

你可以适当填加一些内容
Dim adocn As New ADODB.Connection

Private Sub Command1_Click()
If Text1.Text = "" Then

Else
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from ss where 学号=" & Trim(Text1.Text)
adocn.Open
rs.Open strSql, adocn, 3, 3
If rs.EOF And rs.BOF Then '查询没有此学号
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
Set rs = Nothing
adocn.Close
MsgBox "没有查询到符合您要求的信息!", vbCritical + vbOKOnly, "信息"
Exit Sub
Else
Text2.Text = rs.Fields("姓名")
Text3.Text = rs.Fields("性别")