Code Program VB KRS mahasiswa menggunakan true data grid

Dim konek As String
Dim kon As New ADODB.Connection
Dim rsim, rs, rdel, rsem, rmhs, rmt As Recordset
Dim kg, jk As String


Private Sub Command1_Click()
Set rsim = New ADODB.Recordset
rsim.Open "select * from sem", kon, adOpenKeyset, adLockReadOnly
rsim.MoveFirst
While rsim.EOF = False
Set rs = New ADODB.Recordset
rs.Open "select * from KRS", kon, adOpenKeyset, adLockBatchOptimistic
rs.AddNew
rs!thakd = ta
rs!nim = nim
rs!kdmk = rsim!kode
rs!nilai = 0
rs.UpdateBatch adAffectAllChapters
rsim.MoveNext
Wend
Form_Load
End Sub


Private Sub Form_Load()
konek = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\mhs.mdb;Persist Security Info=False"
Set kon = New ADODB.Connection
kon.Open konek
kon.CursorLocation = adUseClient
hapus
Set rdel = New ADODB.Recordset
rdel.Open "select * from sem", kon, adOpenDynamic, adLockOptimistic
Set dg.DataSource = rdel
dg.Columns(0).Width = 1000
dg.Columns(1).Width = 5800
dg.Columns(2).Width = 700
dg.Columns(2).Alignment = 1
ksg
End Sub


Private Sub nim_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Set rmhs = New ADODB.Recordset
rmhs.Open "select * from mahasiswa where nim = '" & Trim(nim) & "'", kon, adOpenKeyset, adLockReadOnly
If rmhs.EOF = False Then
nama = rmhs!nama
dg.SetFocus
Else
MsgBox ("nim tsb gak ada")
nim = ""
nim.SetFocus
End If
End If
End Sub


Private Sub dg_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
If dg.Col = 0 Then
Set rmt = New ADODB.Recordset
rmt.Open "select * from mata where kode = '" & Trim(dg.Columns.Item(0)) & "'", kon, adOpenKeyset, adLockReadOnly
If rmt.EOF = False Then
dg.Columns.Item(1) = rmt!nama
dg.Columns.Item(2) = rmt!sks
jsks = Val(jsks) + rmt!sks
dg.Col = 2
Else
MsgBox ("Kode Matakuliah tsb GAK ADA")
dg.Col = 0
End If
ElseIf dg.Col = 2 Then
jsks = Val(dg.Columns.Item(2)) * Val(dg.Columns.Item(0))
End If
End If
End Sub


Private Sub ksg()
ta = "2012"
nim = ""
nama = ""
kd = ""
nkd = ""
sks = ""
jsks = ""
End Sub


Private Sub hapus()
Set rsem = New ADODB.Recordset
rsem.Open "delete * from sem", kon, adOpenKeyset, adLockBatchOptimistic
Set dg.DataSource = rsem
End Sub