scusate, ma mi succede una cosa strana che non capisco.

ho aperto una connessione ad un db mdb
ho salvato dei dati che poi visualizzo nella tabella.
li manipolo come voglio
salva modifica cerca ....
e tutto funziona
poi chiudo vb2010 vado nel db con access e vedo i dati
quando apro di nuovo il programma i dati sono spariti
e se vado a vedere nel db con access sono spariti anche da li!!!!

ed in piu non riesco a controllare se un nome già esiste nel db, faccio la ricerca ma poi mi da sempre lo stesso risultato.


ma è possibile una cosa del genere????

codice:
con.Close()
        con.Open()

        Dim Varcognome As String = TextBox2.Text
        Dim Varnome As String = TextBox1.Text
        Dim vardata As String = TextBox3.Text


        Dim rs1 = New OleDb.OleDbCommand(
         "SELECT * FROM cmplnn WHERE nome LIKE ? AND cognome LIKE ? AND data LIKE ? ", con)
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = Varnome
        rs1.Parameters.Add("?", OleDbType.BSTR).Value = Varcognome
        rs1.Parameters.Add("?", OleDbType.Date).Value = vardata


        Dim da As New OleDbDataAdapter(rs1)
        da.Fill(dt)


        DataGridView1.DataSource = dt


        If dt.Rows.Count > 0 Then
            MsgBox("Hai già salvato questo evento, aggiungi un regalo in più per questa persona")
            con.Close()
            Reload("")

            Exit Sub
        Else

            rs1 = New OleDb.OleDbCommand(
                "INSERT INTO cmplnn (id, nome, cognome, data) VALUES (?, ?, ?, ?)", con)
            rs1.Parameters.Add("?", OleDbType.Integer).Value = varid
            rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox1.Text
            rs1.Parameters.Add("?", OleDbType.BSTR).Value = TextBox2.Text
            rs1.Parameters.Add("?", OleDbType.Date).Value = vardata
            rs1.ExecuteNonQuery()
            rs1.Dispose()
            con.Close()
        End If
        rs1.Dispose()
        con.Close()