VBA ile RecordSet kullanma

[Sedosa]

Arkadaşlar merhaba;

Bi tane access form oluşturdum. Bu form içerisinde textbox kontrolleri ve bir tane düğme var düğmeye bastığında bazı textboxlarda aldığı veriyi sorguda kullanarak diğer textboxa aktarması lazım. Yani sorgu dört parametre çekiyor. Bunun sonucunda da bir tane bir satır bir sütunlu table döndürüyor. Bu table içindeki tek veriyi alıp diğer text box a pass etmem lazım noooolur yadım edin.....

Bu konuda çok acemiyim.


=====================


Private Sub SEFER_SAYISI_Click()
On Error GoTo Err_SEFER_SAYISI_Click

Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
Dim sQueryName As String
Dim basTarihi As Date
Dim bitTarihi As Date
Dim aracTuru As String
Dim bolgeAdi As String

basTarihi = CDate(txbBasTarihi)
bitTarihi = CDate(txbBitTarihi)
aracTuru = CStr(txbAracTuru)
bolgeAdi = CStr(txbBolgeAdi)

sQueryName = "TOPLAM_SEFER_SAYISI"

With cmd

Set .ActiveConnection = con 'con is an active ADODB.Connection
.CommandText = sQueryName
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("basTarihi", adDate, adParamInput, , basTarihi)
.Parameters.Append .CreateParameter("bitTarihi", adDate, adParamInput, , bitTarihi)
.Parameters.Append .CreateParameter("aracTuru", adVarChar, adParamInput, 10, bitTarihi)
.Parameters.Append .CreateParameter("bolgeAdi", adVarChar, adParamInput, 10, bitTarihi)

End With

rs.Open cmd, , adOpenKeyset, adLockOptimistic

Me.txbSeferSayisi.Text = CStr(rs.Fields(0))

Exit_SEFER_SAYISI_Click:
Exit Sub
Err_SEFER_SAYISI_Click:
MsgBox Err.Description
Resume Exit_SEFER_SAYISI_Click

End Sub

=================================