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