como inserto un nuevo registro de visual basic 2005 a acces

[gorilaconalas]

hola a todos soy nuevo en esto principalmente la razon por la cual me agregue a este foro fue por que necesito un poco de ayuda estoy tratando de insertar un nuebo registro de visual basic 2005 a acces en una aplicacion aspx he podido realizar una consulta con el siguiente codigo:

Imports System.Data
Imports System.Data.OleDb

Partial Class _Default
Inherits System.Web.UI.Page
Dim conn As OleDbConnection
Dim da As OleDbDataAdapter
Dim ds As DataSet
Dim cadconn As String



Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
cadconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Max\Mis documentos\Visual Studio 2005\WebSites\pruebasesion\App_Data\prueba.mdb"
Dim cad As String
cad = " "
cad = "select * from articulos where clave = " + DropDownList1.SelectedValue()
Label1.Text = cad

conn = New OleDbConnection(cadconn)
da = New OleDbDataAdapter(cad, conn)
da.SelectCommand().CommandText() = cad

ds = New DataSet()
da.Fill(ds, "articulos")

GridView1.DataSource() = ds
GridView1.DataMember() = "articulos"
GridView1.DataBind()
End Sub
End Class

lo que ahora intento hacer es agregar un nuevo regitro si alguien me pudira ayudar se lo agradeceria infinitamente cuento con este codigo pero no me funciona es muy parecido al anterior

Imports System.Data
Imports System.Data.OleDb

Partial Class Default2
Inherits System.Web.UI.Page
Dim connn As OleDbConnection
Dim daa As OleDbDataAdapter
Dim dss As DataSet
Dim cadconnn As String
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

End Sub

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

cadconnn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\Max\Mis documentos\Visual Studio 2005\WebSites\pruebasesion\App_Data\prueba2.mdb"
Dim cad As String
cad = " "
cad = "insert into prueba2.articulo values(3, " + DropDownList1.SelectedValue() + ", '" + TextBox1.Text + " '," + "'" + TextBox2.Text + "');"
Response.Write(cad)
connn = New OleDbConnection(cadconnn)
daa = New OleDbDataAdapter(cad, connn)
daa.InsertCommand.CommandText = (cad)

dss = New DataSet()
daa.Fill(dss, "articulo")


End Sub
End Class

son prueebas que estoy realizando para realizar un proyecto que tengo en mente pero no encuentro el problema gracias a todos de antemano y un saludo a todos lo usuarios de esta pagina espero y algun dia pueda ayudarlos saludos