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

ник: krusz
Private Sub Form_Open(Cancel As Integer)
Me.RecordSource = dd
End Sub

Private Function dd()
Dim s As String
s = "SELECT auto FROM auto WHERE id=10"
End Function
далее в форме пытвюсь вывести значение auto соответсвующее значению id =10, а у меня ничего не выводится