Öncelikle bu meret bağımlılık yapıyormuş, oturup tv izlemek varken bilgisayarın başına kitlendim kaldım

Acsess veritabanından Userform'a veri çekmekte sorun yaşıyorum,
Tablodaki veriler boş geliyor,
Kullandığım kodlar aşağıdaki gibidir ( Not : Kodlar Acsesstr.net' den alıntıdır.)
Set baglan = CreateObject("adodb.connection")
baglan.Open "provider=microsoft.jet.oledb.4.0;data source=" & ThisWorkbook.Path & "\veritabani.mdb"
strSQL = "select*from SiparisKayitlari where Siparis_No ='" & Tsipno & "'"
Set rs = baglan.Execute(strSQL)
If Not rs.EOF Then
Tsiptarihi.Text = Siparis_Tarihi
Ttermin.Text = Termin_Tarihi
tcarikod.Text = Cari_Kod
Caliciadi.Value = Cari_Adi
Taliciadresi.Value = Adres
Caliciil.Value = İl
Caliciilce.Value = İlce
Caliciülke.Value = Ulke_
Talicitelefon.Value = Telefon
Talicifaks.Value = Faks
Talicimail.Value = Mail
Cfarkliteslim.Value = Farkli_Teslimat_Cari_Adi
Tfarkliteslimadres.Value = Farkli_Teslim_Adres
Cfarkliteslimil.Value = Farkli_Teslim_İli
Cfarkliteslimilce.Value = Farkli_Teslim_İlce
Cfarkliteslimülke.Value = Farkli_Teslim_Ulke
Tfarkliteslimtelefon.Value = Farkli_Teslim_Telefon
Tfarkliteslimfaks.Value = Farkli_Teslim_Faks
Tfarkliteslimmail.Value = Farkli_Teslim_Mail
Tmüsterisiparisno.Value = Müsteri_Siparis_No
Tteslimperiyodu.Value = Teslim_Periyodu
Tnakliye.Value = Nakliye_Şekli
Else
Exit Sub
End If
End Sub