Public Class AccessKaryawan
Public Function AccessKaryawanInsert(ByVal Nik As String, _
ByVal FirstName As String, _
ByVal Jabatan As String, ByVal Alamat As String, _
ByVal Telepon As String)
Dim myCmd As New OleDbCommand
Dim myconnection As New AccessData.DataBaseConnection
myCmd.CommandText = "Insert Into [Karyawan]" _
& " (NIK,FirstName,Jabatan,Alamat,Telepon) Values (" _
& "'" & Nik & "', '" & FirstName & "','" & Jabatan & "'" _
& ", '" & Alamat & "', '" & Telepon & "') ;"
myCmd.Connection = myconnection.open
myCmd.ExecuteNonQuery()
myconnection.close()
End Function
End Class