Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Krusz
если пишу

Public Function zap()
Dim StrSQL As String
StrSQL = "Select телефон, * from выдача"
zap = StrSQL
End Function

Public Sub detal()
Dim db As Database
Set db = CurrentDb
Set Me.Поле0.Recordset = db.OpenRecordset(zap)
Me.Поле0.ColumnCount = 16
Me.поле0.ColumnHeads = True
Me.Поле0.ColumnWidths = "2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000"
db.Close
Set db = Nothing
End Sub
у меня листбокс Поле0 заполняется

а если пишу

Public Sub detal()
Dim db As Database
DIM RTS as Recordset
Set db = CurrentDb
set RTS=db.OpenRecordset(zap)
Set Me.Поле0.Recordset = RTS
Me.Поле0.ColumnCount = 16
Me.поле0.ColumnHeads = True
Me.Поле0.ColumnWidths = "2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000;2000"
db.Close
Set db = Nothing
End Sub
у меня ни чего не происходит