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
 
     
    