Şimdi Yeni Bir Proje Açtıktan Sonra "CTRL + T" basıyorz ve karşımıza Compenents geliyor, buradan Microsoft ADO Data Control 6.0 (OLEDB) in yanındaki ticki işaretleyip TAMAM diyip çıkıyoruz

daha sonra ise ToolBox'a bu simge eklenicektir bunu projenin her hangi bir köşesine sıkıştırın ve kod kısmına geçin, (General) (Declartions) kısmına aşşağıdaki kodu yapıştırın;

CODE
Dim conn As New ADODB.Connection
Dim rst As New ADODB.Recordset



bunu hallettikten sonra şimdi db ye bağlanma yolları var .. LOCAL Bağlantı yı anlatıyım, DB adını ben text1.text den okuttum siz nerden okutursunuz bilemem

forma 1 adet buton 1 adet de text box ekleyin ve bu kodu aşşağıya yapıştırın ...
CODE
Private Sub Command1_Click()
On Error GoTo hata2
With conn
.CursorLocation = adUseClient
.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='" & Text1 & "'"
.Open
End With
Exit Sub
hata2:
MsgBox "Bağlantı sağlanılamadı!..", vbCritical
End
End Sub

Private Sub Form_Load()
Text1.text = "Database Adınızı Girin"
End Sub



ve artık db mize bağlandık db işlemlerini az sonra anlatıcam (prosedür, insert, select, alter vs vs )