Visual Basic.NET - Insert en BD desde form

Buenas!
Quiero hacer un insert en una BD SQLServer2000 desde un form rellenando una TextBox. Este es el código que tengo pero no me agrega el registro en el BD:

OleDbConnection1.Open() 'Se abre la conexión a la BD

Dim insertSQL As String = "INSERT INTO Users (User) VALUES (?)"
Dim insertCMD As OleDb.OleDbCommand = New OleDb.OleDbCommand(insertSQL, OleDbConnection1)

OleDbDataAdapter1.InsertCommand = insertCMD

insertCMD.Parameters.Add("@User", OleDb.OleDbType.VarChar, 10).Value = TextBox1.Text
insertCMD.ExecuteNonQuery()

Dim userDS As DataSet = New DataSet()
OleDbDataAdapter1.Fill(userDS, "Users")

OleDbConnection1.Close()

¿Alguna idea de que estoy haciendo mal? Gracias.

Otra cosilla más, ¿cómo puedo importar system.dat.sqlexception? Es para controlar las posibles excepciones que me de SQL, pero con un import no me deja.

Gracias y un saludo.

instrucción INSERT INTO USERS VALUES(@User)

la otra es que digas: INSERT INTO USER VALUES('" & TextBox1.text & "')"
y lo asignes como commandtext y luego excutenonquery

Además, podrías usar también el namaspace syste.data.sqlclient para todo

Ya que es más lógico que si deseas obtener las excepciones de sql, utilices todo con sqlclient.

Gracias David. Una cosa +, ¿cómo importo el namespace sqlclient? Con Import no m deja.

Gracias y un saludo.