DADOS NÃO SENDO CADASTRADOS

  
Dim SqlInc As String = [Ô]INSERT INTO CEP(Logradouro,Cep,Bairro,Municipio,UF) values (@logradouro,@cep,@bairro,@municipio,@uf)[Ô]
            For index = 0 To ds.Tables(0).Rows.Count - 1
                Logradouro = ds.Tables(0).Rows(index).Item(0).ToString & [Ô] [Ô] & ds.Tables(0).Rows(index).Item(1).ToString
                Bairro = ds.Tables(0).Rows(index).Item(6).ToString
                Municipio = ds.Tables(0).Rows(index).Item(4).ToString
                UF = ds.Tables(0).Rows(index).Item(3).ToString
                CEP = ds.Tables(0).Rows(index).Item(2).ToString
                [ô]inserir na tabela ceps
                Dim parametrosNomes(4) As String
                parametrosNomes(0) = [Ô]@Logradouro[Ô]
                parametrosNomes(1) = [Ô]@Cep[Ô]
                parametrosNomes(2) = [Ô]@Bairro[Ô]
                parametrosNomes(3) = [Ô]@Municipio[Ô]
                parametrosNomes(4) = [Ô]@UF[Ô]

                Dim parametrosValores(4) As String
                parametrosValores(0) = Mid(Logradouro, 1, 50)
                parametrosValores(1) = Mid(CEP, 1, 8)
                parametrosValores(2) = Mid(Bairro, 1, 50)
                parametrosValores(3) = Mid(Municipio, 1, 50)
                parametrosValores(4) = Mid(UF, 1, 2)

                Dim command As New SqlCeCommand(SqlInc, connection)
                FillParameters(command, parametrosNomes, parametrosValores)
                command.ExecuteNonQuery()
                command.Dispose()
            Next
 

  
Private Sub FillParameters(ByVal command As SqlCeCommand, ByVal parameterNames As String(), ByVal parameterVals As String())
            If parameterNames IsNot Nothing Then
                For i = 0 To parameterNames.Length - 1
                    command.Parameters.AddWithValue(parameterNames(i), parameterVals(i))
                Next
            End If
           End Sub
 

  
// define a string de conexão
 
string strConnection = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\\dados\\Cadastro.mdb[Ô];




 //cria a conexão com o banco de dados
 
 OleDbConnection dbConnection =  new OleDbConnection(strConnection);
 



//cria um comando

 OleDbCommand cmdQry = dbConnection.CreateCommand();

 

//Define a instrução SQL com parâmetros
 

 cmdQry.CommandText = [Ô]INSERT INTO Clientes(nome,endereco,cidade,estado,cep,telefone)[Ô]
 
+ [Ô] VALUES (@nome, @endereco, @cidade, @estado, @cep, @Telefone)[Ô];
  
 



// definindo os parâmetro: nome , tipo de dados e tamanho
 
cmdQry.Parameters.Add([Ô]@nome[Ô], OleDbType.VarChar, 50);
 
cmdQry.Parameters.Add([Ô]@endereco[Ô], OleDbType.VarChar, 50);
 
cmdQry.Parameters.Add([Ô]@cidade[Ô], OleDbType.VarChar, 50);
 
cmdQry.Parameters.Add([Ô]@estado[Ô], OleDbType.VarChar, 50);
 
cmdQry.Parameters.Add([Ô]@cep[Ô], OleDbType.VarChar, 50);
 
cmdQry.Parameters.Add([Ô]@telefone[Ô], OleDbType.VarChar, 50);
  




 //atribuindo valores aos parâmetros
 
cmdQry.Parameters[[Ô]@nome[Ô]].Value = txtNome.Text;
 
cmdQry.Parameters[[Ô]@endereco[Ô]].Value = txtEndereco.Text;
 
cmdQry.Parameters[[Ô]@cidade[Ô]].Value = txtCidade.Text;
 
cmdQry.Parameters[[Ô]@estado[Ô]].Value = txtEstado.Text;
 
cmdQry.Parameters[[Ô]@cep[Ô]].Value = txtCep.Text;
 
cmdQry.Parameters[[Ô]@telefone[Ô]].Value = txtTelefone.Text;
 

 try
 
 { 
 
// abre o banco
 
 dbConnection.Open();
 
// executa a query
 
cmdQry.ExecuteNonQuery();
 
//
 
 MessageBox.Show([Ô]Dados Salvos com sucesso.[Ô]);

}
 
//Trata a exceção
 
catch (OleDbException ex)

{
 
 MessageBox.Show([Ô]Error: [Ô] + ex.Message);

}
 
finally
 
 {
 
//fecha a conexao 
 
 dbConnection.Close();

}
 

  
    Private Sub btnIncluir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnIncluir.Click
        Dim NomeBanco As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Personal) & [Ô]\ExemploDB.mdb[Ô]
        Dim con As New OleDb.OleDbConnection([Ô]Provider=Microsoft.ACE.OLEDB.12.0;Data Source =[Ô] & NomeBanco)
        con.Open()

        Dim SqlInc As String = [Ô]INSERT INTO usuario(nome,senha) values (@nome,@senha)[Ô]
        Dim command As New OleDbCommand(SqlInc, con)
        command.Parameters.AddWithValue([Ô]@nome[Ô], txtNome.text)
        command.Parameters.AddWithValue([Ô]@senha[Ô], txtSenha.text)
        command.ExecuteNonQuery()
        command.Dispose()
        con.Close()
    End Sub
 

  
        command.Parameters.Add([Ô]@nome[Ô], OleDbType.VarChar, 50)
        command.Parameters.Item([Ô]@nome[Ô]).Value = txtNome.Text