Evet Arkadaşlar ben bir kod yapmaya calıştım ama yapamadım hatam nerede soylermisiniz?
Bağlantıyı Ayarladım
KOd:
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset

Private Sub Command2_Click()
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=" ' & txtdb & '""
.Open
frmMain.Show 1
End With
'buradada veritabanına bağlandım ...
End Sub

'Bu da Update Etmek İstediğim Kod Ancak Hata BUrada

Private Sub Edit_Click()
rst.Open "update USER_DATA(strUserID,Sta,Dex,Intel,Cha,Gold) VALUES (" '" & Text1 & "'","'" & Text2 & "'","'" & Text3 & "'","'" & Text4 & "'","'" & Text5 & "'","'" & Text6 & "'"), conn, 1, 3
rst.Close
End Sub

--------------------------
Lutfen Yardım Edin.Uc gundur bu kodla uğraşıyom, son cara sizlere geldim.
__________________