button save in my project is not working properly, i always get information "your data is not yet complete" here is my syntax:
Dim tambah As String = "insert into Anggota values('" & Tno.Text & "','" & Tnis.Text & "','" & Tnama.Text & "','" & Tkelas.Text & "','" & CBjk.Text & "','" & Tt4lahir.Text & "','" & ttgllahir.Text & "')"
Call koneksi()
cmd = New OleDbCommand(tambah, conn)
Try
cmd.ExecuteNonQuery()
MsgBox("the data has been saved", MsgBoxStyle.Information, "INFORMASI")
Call kosongkan()
Catch ex As Exception
MsgBox("your data is not yet complete!!!!", MsgBoxStyle.Information, "INFORMASI")
End Try
Call tampilkan()
Tnis.Focus()
and here is my connection
Public Sub koneksi()
str = "provider=microsoft.jet.oledb.4.0;data source=Database.mdb"
conn = New OleDbConnection(str)
ds = New DataSet
If conn.State = ConnectionState.Closed Then
conn.Open()
End If
End Sub