[Ahmed_Mansoor]

أهلا أخي الكريم :

كود :

Public conn1 As ADODB.Connection
Public rs1 As ADODB.Recordset

Sub connect1()
Dim Server_Name As String
Dim msdatabase As String
Dim User_Name As String
Dim User_Pass As String
Dim SQL_Connection_Txt As String

Server_Name = "ComputerName"
msdatabase = Form12.txtip.Text
User_Name = "Admin"
User_Pass = "12345678"

SQL_Connection_Txt = "Provider=SQLOLEDB.1;" & _
         "Data Source=" & Trim$(Server_Name) & ";" & _
         "Initial Catalog=" & Trim$(msdatabase) & ";" & _
         "User Id=" & Trim$(User_Name) & ";" & _
         "Password=" & Trim$(User_Pass)
DoEvents

Set conn1 = New ADODB.Connection
   conn1.CursorLocation = adUseClient
   conn1.Open SQL_Connection_Txt

Set rs1 = New ADODB.Recordset
   rs1.ActiveConnection = conn1
   rs1.CursorLocation = adUseClient
   rs1.CursorType = adOpenDynamic
   rs1.LockType = adLockOptimistic
   rs1.Source = "SELECT * FROM table1"
   rs1.Open
  
End Sub