乐正绫刀剑春秋:vb 连接sql数据库中recordset问题

大虾帮看看这段程序。怎么老提示有错误。
Public conn As New ADODB.Connection
Public rs As New ADODB.Recordset

Public Function dbrefresh()
Dim connstr As String
Dim str As String
On Error GoTo errcontrl
Set conn = New ADODB.Connection
conn.ConnectionTimeout = 20
conn.Open ("provider=sqloledb.1;data source=localhost;UID=sa;PWD=;initial catalog=jxkh;")
Exit Function
errcontrl:
Call MsgBox("Error:Data connect", vbOKCancel)

End Function

Public Function dbrs()
Dim rownum As Integer
Dim MSFlexGrid1 As MSFlexGrid
On Error GoTo errcontrl
rs.Open "select * from khzb", conn
rownum = 1
MSFlexGrid1.Rows = rownum
MSFlexGrid1.Cols = rs.Fields.Count
For i = 0 To rs.Fields.Count - 1
MSFlexGrid1.TextMatrix(0, j) = rs.Fields(j).Name
Next i
Do While Not rs.EOF
rownum = rownum + 1
MSFlexGrid1.Rows = rownum
For j = o To rs.Fields.Count - 1
If Not IsNull(rs.Fields(j).Value) Then
MSFlexGrid1.TextMatrix(rownum - 1, j) = rs.Fields(j).Value
End If
Next j
rs.MoveNext
Loop

errcontrl:
Call MsgBox("error:data refresh!", vbOKCancel)
End Function
尤其是：rs.Open "select * from khzb", conn这一部分，是不是这里有错误？MSFlexGrid1总是显示不了！谢了先。