private objCmd as OleDbCommand private sub Boton............ objCmd = OleDbCommand("insert into .....", objCN) objCN.Open objCmd.ExecuteNonQuery() objCN.Close End Sub