Switching SQL queries w/ Datagrid

[bedowin]

Would this be an appropriate way to switch the SQL query results on a datagrid. Or, is there a cleaner way to code it?

Thanks

Option Explicit
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset

Private Sub Form_Load()
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cnn.Open "Provider=MSDASQL;Persist Security Info=False;Data Source=custserv"
    rs.Open "SELECT * from tblOnDemand", cnn, adOpenStatic, adLockOptimistic
    
     Set DataGrid1.DataSource = rs
End Sub

Private Sub cmdRun_Click()
    Set cnn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    cnn.Open "Provider=MSDASQL;Persist Security Info=False;Data Source=custserv"
    rs.Open "SELECT * from tblRequests", cnn, adOpenStatic, adLockOptimistic
    
     Set DataGrid1.DataSource = rs
End Sub