Can someone please help, The DataGrid(grdStaff) is not being populated with the recordset from database


Dim sql As String

Dim r As New ADODB.Recordset


Set r = New ADODB.Recordset

sql = "SELECT Username, Password from Admin"

With r
.Open sql, cnn, adOpenKeyset, adLockOptimistic, adCmdText
Set grdStaff.DataSource = r

End With

End Sub