sql在vb中的填充数据代码怎样写

Dim cnnUser As New ADODB.Connection
Dim rstUser As New ADODB.Recordset
Private Sub Form_Load()
With cnnUser
If .State = adStateOpen Then .Close
.ConnectionString = "Provider=SQLOLEDB.1;Password=" & password & ";Persist Security Info=True;User ID=" & uId & ";Initial Catalog= " & DB & " ;Data Source=" & ds
.Open
End With
End Sub

Private Sub commSid_Click()
On Error GoTo p

With rstUser
If .State = adStateOpen Then .Close
.Open "Select * from wf_data where sid ='" & Trim(txtSid.Text) & "'", cnnUser, adOpenKeyset, adLockOptimistic
If Not .EOF Then
Me.coShangpin.Text = rstUser.Fields("shangpin").Value
Me.coChepai.Text = rstUser.Fields("chepai").Value
Me.coFahuo.Text = rstUser.Fields("fahuo").Value
Me.coShouhuo.Text = rstUser.Fields("shou