Grazie non avevo capito che mi poteva essere d'aiuto e servisse proprio quell'istruzione ma nonostante ciò non riesco a farla funzionare
Sono io che nn sono capace , ma inserisco quella stringa in questo modo,nel pulsante che da l'ok per inserire

codice:
 Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        If Not Conn.State = ConnectionState.Open Then Conn.Open()

        Dim stringasql As String '= "INSERT into Socio(Nome,Cognome,Telefono) values ('" & Me.TxtNome.Text & "'" & Me.TxtCognome.Text & "'" & Me.TxtTelefono.Text & ")"
        stringasql = "Insert into Socio(Nome,Cognome,Telefono) values('"
        stringasql = stringasql & Me.TxtNome.Text & "'" & ","
        stringasql = stringasql & "'" & Me.TxtCognome.Text & "'" & ","
        stringasql = stringasql & "'" & Me.TxtTelefono.Text & "'" & ")"
        MsgBox(stringasql)

        Cmd = New OleDbCommand(stringasql, Conn)
        Cmd.ExecuteNonQuery()

        Me.SocioTableAdapter.Fill(Me.GestioneCampioDataSet.Socio)
        Conn.Close()
Però non mi si aggiorna prima gli elmenti erano 40, inserito diventano 40 e riavviato chiudendo e riaprendo sono 41
Forse sbaglio dove inserirla?