سلام
من از این کد استفاده کردم
Option Compare Database
Option Explicit
Private Sub Form_Load()
Dim cnn1 As ADODB.Connection
Dim rst1 As ADODB.Recordset
Dim strServer, strDatabase, strUsername, strPassword As String
Dim strConnectionString As String
strServer = "."
"strDatabase = "Product
"strUsername = "sa
"strPassword = "123
strConnectionString = "Provider=SQLOLEDB;Data Source=" & strServer & ";Initial Catalog=" & strDatabase
& ";User ID=" & strUsername & ";Password=" & strPassword & ";"
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = strConnectionString
cnn1.CommandTimeout = 0
cnn1.Open
Dim strSQL As String
"strSQL = "select * from dbo.User
Set rst1 = New ADODB.Recordset
rst1.Open strSQL, cnn1, adOpenKeyset, adLockOptimistic
Set Me.Recordset = rst1
End Sub
ولی متاسفانه خطی رو که قرمز کردم خطا میده
یه سوال دیگه داشتم که من برای فرم ورود نام کاربری و پسورد دارم که از تیبل User اطلاعاتشو میگیره
چطور میتونم بگم از طریق کانکشن اطلاعاتشو از تیبل داخل SQL بگیره؟؟