在vb中 DataGrid1与数据库(不使用data ,adodc,DataEnvironment 等控件)如何动态连接库?

使用ADODB数据访问对象来完成,以下给出一段代码:
Private Sub Command1_Click()
Set cnn = New ADODB.Connection
cnn.Open strCnn
Set cmm = New ADODB.Command
Set cmm.ActiveConnection = cnn
cmm.CommandType = adCmdStoredProc
If frmMain.iStatType = 1 Then
cmm.CommandText = "spRoomSale"
ElseIf frmMain.iStatType = 3 Then
cmm.CommandText = "spRoomFullRate"
Else
cmm.CommandText = "spMonthSum"
End If
If frmMain.iStatType = 2 Then
cmm.Parameters.Append cmm.CreateParameter("ThisYear", adVarChar, adParamInput, 4, Text1.Text)
Else
Dim sDate, eDate As Date
sDate = DTPicker1.Value
eDate = DTPicker2.Value
cmm.Parameters.Append cmm.CreateParameter("StartDate", adDBTimeStamp, adParamInput, , sDate)
cmm.Parameters.Append cmm.CreateParameter("EndDate", adDBTimeStamp, adParamInput, , eDate)
End If
Set rs = New ADODB.Recordset
rs.CursorL