Va por aca, si te sirve y quiero creer que ya tienes la cadena de conexion establecida y demas, solo te faltaria insertar los datos no?¿, puedes hacer asi:
Dim Insert As New SqlCommand
Insert.CommandText = "Insert into Tabla(campo1,campo2,.....campoN)
values(valor1,valor2,....valorN)
