Ola a todos,

Para quem deseja trabalhar com aplicações Web Sites que utilizam consultas ao banco de dados, vai ai uma dica de como funciona...Estou partindo da idéia de que todos já saibam trabalhar com os componentes do Visual Studio... Se não, vale a pena dar uma olhandinha antes...Vale lembrar ainda que aqui estaremos utilizando uma conexao Access.

-- No anbiente do visual studio abra a view toobox e crie 04 TextBox e 01 Button.

-- De um duplo clique no button e insira o seguinte codigo: não precisa pensar duas vezes.. selecione tudo aqui e substitua tudo. Só peço um pouco de atenção para renomear as palavras que eu coloquei em vermelho. Como o nome da sua classe que deve ser na verdade o nome que voce deu a seu web form... e tambem o caminho do seu arquivo access.

-------------------------------------------------------------------------------------------------------------------------------------------

Imports System.Data.OleDb
Partial Class Nome da Clase
Inherits System.Web.UI.Page

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            TextBox4.Text = Now.Date.ToShortDateString()
            'Coloca a data automatica no TextBox

End Sub

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

               Dim sql As String
               Dim conn As OleDbConnection
               Dim cmd As OleDbCommand

                  sql = "INSERT INTO nome_tabela(campo_da_tabela1, campo_da_tabela2,campo_da_tabela3, campo_da_tabela4)"
                  sql = sql & " values ('" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "')"
                  conn = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\teste.mdb")

' O Source indica o caminho do banco..aqui no caso diz que esta no diretorio d:\nome_do_banco.mdb

               conn.Open()
               cmd = New OleDbCommand(sql, conn)
               Try
                     cmd.ExecuteNonQuery()
               Catch ex As Exception
                     Response.Write(ex.ToString())
               Finally
                          conn.Close()
               End Try

'Limpar os campos textbox

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""

         End Sub

End Class

--------------------------------------------------------------------------------------------------------------------------------------------

Não Esqueca,  para que seja possivel inserir alguma informação no seu banco access é preciso que antes voce o crie e coloque todos os campos necessarios. No nosso exemplo criei no Access um arquivo chamado teste com 04 colunas, sendo que cada coluna será chamada de: campo_da_tabela1, campo_da_tabela2,campo_da_tabela3, campo_da_tabela4. 

Agora é so receber os dados atraves da: '" & TextBox1.Text & "', '" & TextBox2.Text & "', '" & TextBox3.Text & "', '" & TextBox4.Text & "'

É isso ai.. qualquer duvida é só mandar um e-mail.

Até a próxima!

Daniel Couto