Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim rs1 As New ADODB.Recordset
Dim sid, bname, qty As String
Private Sub cboSupid_Click()
sid = cboSupid.Text
rs1.Open "select * from Supplier_details where Supplier_id=('" & sid & "')", con, adOpenKeyset, adLockOptimistic...