object Variable or with block no set

help. i have 5 problem ..help me
Attachment 92287
this code :
Private Sub Cmd_SIMPAN_Click()
'txt_cus_id.Text = generate_code

mKar_ID = txt_cus_id.Text
mKar_Name = txt_cus_name.Text
mKar_Tmpt = txt_tmp.Text
mKar_TglLahir = TglLahir_dtp.Value
mKar_JenisKelamin = Cmb_kelamin.ListIndex
mKar_Agama = Cmb_Agama.Text
mKar_Alamat = txt_alamat.Text
mKar_City = txt_cus_city.Text
mKar_Jabatan = txt_jabatan.Text
mKar_Phone = txt_Cus_Phone.Text

mKar_NamaFile = Text1.Text
'MsgBox Cmd_SIMPAN

If Cmd_SIMPAN.Caption = "SAVE ADD" Then
txt_cus_id.Text = generate_code
If Len(txt_cus_id.Text) > 12 Then
mTemp = MsgBox("Karyawan ID tidak boleh > 12 karakter", vbOKOnly)
txt_cus_id.SetFocus
Exit Sub
End If
mSQL = "insert Tabel_Karyawan (Kar_ID, Kar_Name, Kar_Tmpt, Kar_TglLahir, Kar_JenisKelamin, Kar_Agama, Kar_Alamat, Kar_City, Kar_Jabatan, Kar_Phone ) " & _
" values ('" & txt_cus_id.Text & "','" & mKar_Name & _
"','" & mKar_Tmpt & "','" & mKar_TglLahir & "','" & mKar_JenisKelamin & "','" & mKar_Agama & "','" & mKar_Alamat & "','" & mKar_City & "','" & mKar_Jabatan & "','" & mKar_Phone & "')"
Else
mSQL = "Update Tabel_Karyawan set Kar_Name ='" & _
mKar_Name & "', Kar_Tmpt='" & mKar_Tmpt & "', Kar_TglLahir='" & mKar_TglLahir & "', Kar_JenisKelamin='" & mKar_JenisKelamin & "', Kar_Alamat='" & mKar_Alamat & "', Kar_City ='" & mKar_City & _
"', Kar_Jabatan='" & mKar_Jabatan & "', Kar_Phone= '" & mKar_Phone & "' where Kar_ID = '" & txt_cus_id.Text & "'"
End If
MsgBox mSQL
'Update datagrid setelah update database berhasil
Set objCommand = New ADODB.Command
objCommand.ActiveConnection = objConnection
objCommand.CommandText = mSQL
objCommand.CommandType = adCmdText
' On Error Resume Next
objCommand.Execute
If Err.Number <> 0 Then
MsgBox "gagal menambah/meng-update record" & vbCrLf & Err.Description
Else
If Cmd_SIMPAN.Caption = "SAVE ADD" Then
objRecordset.AddNew
End If
'harus gunakan nilai dari tampungan sementara, alasannya?! cari tau sendirilah
'karena telah terjadi insert atau addnew :)
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 0) = mKar_ID
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 1) = mKar_Name
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 2) = mKar_Tmpt
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 3) = mKar_TglLahir
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 4) = mKar_Alamat
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 5) = mKar_City
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 6) = mKar_Jabatan
' grid_Data_Karyawan.grid_Data_Karyawan.TextMatrix(grid_Data_Karyawan.Row, 7) = mKar_Phone
End If
On Error GoTo 0

If Cmd_SIMPAN.Caption = "SAVE ADD" Then
' ListKaryawan_frm.Show vbModal
blank_data
txt_cus_id.SetFocus
Else
blank_data
disable_entry
enabled_command
End If
End Sub

Private Sub Cmd_EXIT_Click()
If Cmd_EXIT.Caption = "EXIT" Then
Unload Me
Else
blank_data
disable_entry
enabled_command
End If

End Sub


Private Sub Command1_Click()
Dim totalhari As Integer
Dim umur As Integer
Dim hari As Integer

totalhari = DateDiff("d", TglLahir_dtp.Value, Date)
umur = totalhari / 365
hari = totalhari - (umur * 365)
MsgBox "Umur Anda " & umur & " tahun " & hari & " hari"
End Sub

Private Sub Form_Activate()
Dim Atas As Long
Dim Kiri As Long
Atas = (Screen.Height - Me.Height) / 2
Kiri = (Screen.Width - Me.Width) / 2
Me.Move Kiri, Atas
End Sub

Private Sub Form_Load()
Set objConnection = New ADODB.Connection
With objConnection
.ConnectionString = Penjualan_Menu.mRoot_StrConn
.Open
If Not .State = adStateOpen Then
MsgBox "tidak dapat membuat hubungan ke database"
Unload Me
End If
End With
load_objrecordset
blank_data
data_length
disable_entry
enabled_command

' Cmb_kelamin.AddItem "Pria"
' Cmb_kelamin.AddItem "Wanita"
' 'Jenis Kelamin
' If UCase(Trim(strJK)) = "WANITA" Then Cmb_kelamin.ListIndex = 1 Else Cmb_kelamin.ListIndex = 0
' Set objRecordset = New ADODB.Recordset
'mSQL = "select id_jeniskelamin, jeniskelamin from m_jeniskelamin order by jeniskelamin "
'With objRecordset
' .ActiveConnection = objConnection
' .CursorLocation = adUseClient
' .CursorType = adOpenStatic
' .LockType = adLockBatchOptimistic
' .Source = mSQL
' .Open
'End With
'Memilih Jenis Kelamin

'Jenis Kelamin
If UCase(Trim(strJK)) = "WANITA" Then Cmb_kelamin.ListIndex = 1 Else Cmb_kelamin.ListIndex = 0


Cmb_Agama.AddItem "Islam"
Cmb_Agama.AddItem "Kristen Protestan"
Cmb_Agama.AddItem "Katholik"
Cmb_Agama.AddItem "Hindu"
Cmb_Agama.AddItem "Budha"
Cmb_Agama.AddItem "Konghuchu"
Cmb_Agama.AddItem "Atheisme"
Cmb_Agama.AddItem "Lain-Lain"
'Agama
If UCase(Trim(strAgm)) = "Islam" Then Cmb_Agama.ListIndex = 1 Else Cmb_Agama.ListIndex = 0
End Sub:cry::sick:
Attachment 92289

Attached Images