vb

Private Sub ListBox1_Click()
Dim s as string
Set Rs = Nothing
S=Trim(ListBox1.Text) 
 Rs.CursorLocation = adUseClient
 Rs.Open "select * from s", dbcnn, adOpenDynamic, adLockOptimistic
 Set DataGrid1.DataSource = Rs
 End Sub
提示：数据库引擎我找不到输入表或查询's'，确定他是否存在以及他的名称拼写是否正确。
我的想法是把listbox1中表的信息显示在datagrid控件中，已经把所有的 表明添加在了listbox1控件中。怎么回事？希望各位老师给我看看怎么回事