In questo modo??
Perchè non funziona comunque

codice:


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click


        'VERNICI
        Dim stringa As String = "select ID From Vernici Where Nome = 'Rosso'"
        Form1.ApriConnessione()
        Dim comm2 As OleDb.OleDbCommand = New OleDb.OleDbCommand(stringa, Form1.objconn)
        Dim dr2 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(comm2)
        Dim dt2 As Data.DataTable = New Data.DataTable()
        dr2.Fill(dt2)
        Form1.ChiudiConnessione()






    End Sub
Non so se può essere utile, ma l'inserimento riesco a farlo... quindi è proprio un problema nella select