提示“对象变量或with块变量未设置”错误

[szoe5203]

Option Explicit
Private cn As New ADODB.Connection
Private rs As New ADODB.Recordset
Private cnStr As String

Private Sub Form_Load()
Dim sql As String
sql = "Select * from [doc]"
getDate (sql)
showData
End Sub

Private Function getDate(cnStr)
Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.Open "PROVIDER=microsoft.jet.oledb.4.0;persist security info =false;data source=" & App.Path & "\data\data.mdb" & ";Jet OLEDB:Database"
Set rs = New ADODB.Recordset
rs.Open cnStr, cn, 1, 3
End Function

Private Function showData()
With MSHFlexGrid1
.Clear
.Cols = 6
.ColWidth(0) = 0
.ColWidth(1) = 1400.ColWidth(2) = 4670
.ColWidth(3) = 1200
.ColWidth(4) = 1800
.ColWidth(5) = 1200
.ColAlignmentFixed = flexAlignCenterCenter
.Recordset = rs
End With
End Function

上面这段代码在.Recordset = rs这句提示“对象变量或with块变量未设置”错误
网上搜了半天，应该是rs没有实例化
可是我不知道具体该怎么做，请教大家了
麻烦详细点，非常感谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

[king06]

set .recordset =rs

[szoe5203]

汗，原来是这样，谢谢啦