Estás seguro que tu cadena de conexión funciona, porque reemplacé la conexión que usas por esta:
Código vb.net:
Ver originalDim cnn As New SqlConnection("Data Source=.\SQLEXPRESS;database=pruebas;Integrated Security=True;Connect Timeout=30;")
y el registro se grabó correctamente.