ADODB "insert into"

Hej eksperter...

Jeg har en velfungerende hjemmeside som jeg lige har fået webhotel og domæne til. Problemet er så at jeg altid har brugt OleDbConnection, og har derfor slet ikke styr på det ADODB som jeg har en opfattelse af er det eneste jeg kan bruge...

Efter en del søgning på nettet har jeg konstateret at det ikke er noget jeg lige ordner på 2 minutter, derfor ser jeg lige om der ikke skulle være nogle herinde der lige kan lave følgende SQL-kald om så det spiller med ADODB og ikke OleDb.

Koden ser sådan her ud:

        Dim connectionStr As String  ' Forbindelses-streng til databasen
        Dim con As System.Data.OleDb.OleDbConnection    ' Forbindelse-objekt til databasen
        Dim cmd As System.Data.OleDb.OleDbCommand      ' kommando-objekt

        ' Opbyg connectionStr
        connectionStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="
        connectionStr += Request.PhysicalApplicationPath + "db\db.mdb"

        ' Skab forbindelses-objekt udfra connectionStr
        con = New System.Data.OleDb.OleDbConnection(connectionStr)

        ' Skab kommando-objekt og tilknyt til forbindelses-objekt
        cmd = New System.Data.OleDb.OleDbCommand
        cmd.Connection = con

        ' Opbyg SQL-kommando
        cmd.CommandText = "INSERT INTO Bruger (Brugernavn, Adgangskode, Email, Oprettelsesdato, Brugertype)"
        cmd.CommandText += " VALUES (@brugernavn, @adgangskode, @email, @oprettelsesdato, @brugertype)"

        cmd.Parameters.Add("@brugernavn", System.Data.OleDb.OleDbType.VarChar).Value = txtBrugernavn.Text
        cmd.Parameters.Add("@adgangskode", System.Data.OleDb.OleDbType.VarChar).Value = txtPassword.Text
        cmd.Parameters.Add("@email", System.Data.OleDb.OleDbType.VarChar).Value = txtEmail.Text
        cmd.Parameters.Add("@oprettelsesdato", System.Data.OleDb.OleDbType.Date).Value = Date.Now.TimeOfDay.ToString()
        cmd.Parameters.Add("@brugertype", System.Data.OleDb.OleDbType.VarChar).Value = "Admin"

        con.Open()              ' Åben forbindelsen til databasen
        cmd.ExecuteNonQuery()  ' Udfør kommando (SQL-streng)
        con.Close()            ' Luk forbindelsen

Håber det er til lige at klare...?

På forhånd (mange !) tak.

/Chr.