http://www.esnips.com/web/FRMTR

icinden CONNECTIONS.DLL dosyasini indirip projenize ekleyin

Private Sub Command1_Click()

Dim baglan As New DB_CONNECT

'Excel sayfalarina baglanmanin en kolay yolu
Call baglan.connect_xls("SELECT * FROM [Sayfa1$]", "c:\test.xls")
Do While Not baglan.xls_set.EOF
MsgBox baglan.xls_set.Fields(0)
baglan.xls_set.MoveNext
Loop
baglan.xls_connect.Close
baglan.xls_set.Close

'Acces veritabanina baglanmanin en kolay yolu
Call baglan.connect_access("SELECT * FROM TABLOADI", "c:\database.mdb")
Do While Not baglan.access_set.EOF
MsgBox baglan.access_set.Fields(0)
baglan.access_set.MoveNext
Loop
baglan.access_connect.Close
baglan.access_set.Close

End Sub
__________________