Getting a Datagrid to Refresh

[bedowin]

I am using a datagrid to return information to me when I click a button on a form. Can anyone provide help from the code below?

Option Explicit
Dim cn As New ADODB.Connection


Private Sub Form_Load()

Set cn = New ADODB.Connection
' The ConnectionString contains the path of the 'database.
    
    With cn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .ConnectionString = "Data Source= C:\Inetpub\wwwroot\main\db\service.mdb"
        .Open
    End With

End Sub


Private Sub cmdRun_Click()

    Dim rsState As New ADODB.Recordset
    Dim sSql As String
    
    sSql = "Select * from tblRequests"
    
    ' Open recordset.
    rsState.Open sSql, cn, adOpenStatic, adLockOptimistic
    
    Debug.Print rsState.RecordCount
    
    Set DataGrid1.DataSource = rsState
    
    DataGrid1.Refresh

End Sub