منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

Dim RS As New ADODB.Recordset

Dim DB As New ADODB.Connection

Private Sub Command2_Click()

NNamee1 = txtFields(1).Text

NNamee2 = txtFields(2).Text

       Set RS = New ADODB.Recordset

      RS.Open "select * from TABLE1 where Name1 like '" & NNamee1 & "' AND Name2 like '" & NNamee2 & "'", DB, adOpenStatic, adLockReadOnly

          Adodc1.RecordSource = RS1.Source

End Sub

Private Sub Form_Load()

Set DB = New ADODB.Connection

DB.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDBatabase password=; Data Source=" & App.Path & "\بيانات الموظفين.mdb"

 End Sub