罗晋对唐嫣宠溺照片:VB编程连接SQL SEVER数据库问题

我运行VB程序后出现[MICROSOFT[ODBC SQL SERVER DRIVER [SQL SERVER]第一行:"from"附近有语法错误
那个语法错误应该在哪儿

还有就是这个类模块中的代码
Public Function getlist(byvalsql As String, combo As ComboBox) As ComboBox
Dim mydboper As New DBOperation
Dim rs As ADODB.Recordset
'建立连接
mydboper.DB_connect
Set rst = mydboper.querysql(sql)
If Not rst.EOF Then
With rst
Do While Not .EOF
combo.AddItem .Fields(0)
.MoveNext
Loop
End With
combo.ListIndex = 0
End If
rst.Close
'关闭连接
mydboper.db_disconnect
getidbyname = tmpid
End Function
中的Set rst = mydboper.querysql(sql)这句话中括号里的SQL有错误
还有个
'声明一个连接
Dim conn As ADODB.Connection
'声明一个数据集对象
Dim rst As ADODB.Recordset
Public Sub DB_connect()
'建立连接
Set conn = New ADODB.Connection
conn.Open Connectstring
End Sub
Public Function querysql(byvalsql As String) As ADODB.Recordset
'执行查询
Set rst = New ADODB.Recordset
rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic
'rst.movelast 'get recordcount
Set querysql = rst
End Function
Public Sub executesql(byvalsql As String)
'执行SQL语句
conn.Execute (sql)
End Sub
Public Sub db_disconnect()
'关闭选择
conn.Close
'释放连接
Set conn = Nothing

End Sub
这个类模块中的rst.Open Trim$(sql), conn, adOpenKeyset, adLockOptimistic 这句代码也错误 怎么搞的呀???
是怎么回事呀
请各位大哥哥帮帮小弟哈
我们做课设呢 马上就要答辩了 可还是错误到处都是