.Mysql Bağlantısı ( Modüle Yazılacak Bu Sonra İlk Form Loadtada Call baglanyi_kur yazmanız yeterli )
Kod Alanı:
Global kutup As New ADODB.Connection
Global cmd As New ADODB.Command
Public Sub baglanti_kur( )
If kutup.State = 1 Then kutup.Close
With kutup
.CursorLocation = adUseClient
.ConnectionString = "Provider= MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=dsnkutup;Initial Catalog=kutuphane;"
.Open
End With
Set cmd.ActiveConnection = kutup
End Sub