Вывести в label значение из текущей ячейки recordset - VB

Private Sub Command1_Click()
Dim cmd As String, sql As String
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim noc As Integer
cmd = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\Education\programm\bd1.mdb"
Set cn = New ADODB.Connection
cn.ConnectionString = cmd
cn.Open
sql = "select * from Товары"
Set rs = New ADODB.Recordset
rs.Open sql, cn
noc = Text1 * 2 - 1
rs.Move (noc)
Label1.Caption =
rs.Close
Set rs = Nothing
cn.Close: Set cn = Nothing
End Sub