Kodingan dasar Form Load

Dim datauser As ADODB.Recordset
Private Sub Form_Load()
    Set datauser = New ADODB.Recordset
    datauser.Open "select * from mahasiswa", conn
    Set DataGrid1.DataSource = datauser
End Sub