pues lo puedes hacer de esta manera:
creas una coneccion a la base datos primero asi:
dim cn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0; datasource= D:\mibasededatos")
rem luego
rem creas el comando para guardar junto con instruccion sql asi:
dim Query as string="Insert into Clientes(ID,Nombres) values(?,?)"
dim cmd as new oledbcommand(Query,cn)
cmd.commandtype=commandtype.text
rem creas los dos parametros y los agregas a la
rem coleccion del command asi
cmd.parameters.add("@Id","aqui defines el tipo de dato","Y aqui su
extension").value=me.textbox1.text
cmd.parameters.add("@Nombre","aqui defines el tipo de dato","Y aqui su extension").value=me.textbox2.text
rem abres la coneccion y ejecutas el comando
cn.open()
cmd.executereader
cn.close()
rem y eso es todo espero que te sirva...