Sentencia Insert

[Stream]

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Introducir aquí el código de usuario para inicializar la página
If MyClass.SaveData("Alumnos", "IdAlumno", "Nombre", "Edad", "Stream", 22, 3399) Then
Response.Write("Alumno agregado,ok")
Else
Response.Write("No se pudo agregar el alumno !!")
End If
End Sub



Public Function SaveData(ByVal Tabla As String, ByVal IdCampo As String, ByVal Campo1 As String, ByVal Campo2 As String, ByVal ValorCampo1 As String, ByVal ValorCampo2 As Integer, ByVal IdValor As Integer) As Boolean
Dim strInsert As String = "INSERT INTO " & Tabla & "(" & Campo1 & "," & Campo2 & ")VALUES('" & ValorCampo1 & "'," & ValorCampo2 & ") WHERE " & IdCampo & "=" & IdValor
'tu implementacion de adicion aqui
'..
'..
Return True
End Function



Bueno.. es solo un ejemplo.. espero que te sirva...
Saludos !!