Sub baglan()
baglanti = CreateObject("adodb.connection")
baglanti.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source='drmofis.mdb';Persist Security Info=True;Jet OLEDBatabase Password=13*13")
End Sub
[vb]
Private Sub Ebildirge_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim rs As Object
Call baglan()
rs = CreateObject("adodb.recordset")
rs.open("select dosyaismi from sgk where dosyaismi", baglanti, 1, 1)
If rs.recordco