Surucu yukleme işlemini tamamladıktan sonra artık işimiz cok kolay.
Dim Ado1 As New ADODB.Connection
Dim cs As String
Me.MousePointer = 11
cs = "Driver=; Server=mysql_server_adresi; Port=3306; Option=3; Socket=; Stmt=; Database=veritabanı_adı; Uid=kullanıcı_adı; Pwd=Sifreniz;"
Ado1.Open (cs)
Me.MousePointer = 0
....
Bu kadar

Baksana59

__________________