Private Sub cmdbaru_Click()
mulai

Dim rst As New ADODB.Recordset
Dim N As String
rst.Open "select max(right(guru_kode,3)) as guru_kode from guru", KON, adOpenKeyset
If IsNull(rst!guru_kode) Then
N = "01-001" 'nilai awal
Else
N = "01-" & Format(rst!guru_kode + 1, "000")
End If
txtkode.Text = N
End Sub

Public KON As ADODB.Connection
Public REK As ADODB.Recordset
Public statusubah As Boolean
Public login As New ADODB.Recordset
Public rslogin As New ADODB.Recordset
Public Sub BukaKoneksi()
Dim ConnString As String
Dim db_name As String
Dim db_server As String
Dim db_port As String
Dim db_user As String
Dim db_pass As String
'//error traping

'/isi variable
db_name = "db_belajar"
db_server = "localhost"
db_port = "3306"
db_user = "root"
db_pass = ""
'/buat connection string
ConnString = "DRIVER={MySQL ODBC 5.1 Driver};SERVER=" & db_server & ";DATABASE=" & db_name & ";UID=" & db_user & ";PWD=" & db_pass & ";PORT=" & db_port & ";OPTION=3"
'/buka koneksi

Set CON = New ADODB.Connection
CON.ConnectionString = ConnString
CON.CursorLocation = adUseClient
CON.Open
'___________________________________________________________
On Error GoTo 0
Exit Sub

'buat_koneksi_Error:
MsgBox "Ada kesalahan dengan server, periksa apakah server sudah berjalan !", vbInformation, "Cek Server"

End Sub