Pesquisar na Comunidade

Boa noite a todos. Estou tendo problemas para salvar em meu bando de dados acess as informações de cadastro de novos usuários. o que acontece é que quando clico em salvar, ele não salva as informações na tabela e também não executa o restante dos comandos para fechar a form de cadastro e voltar a form de inicio.... se puderem me dar uma ajuda... segue a baixo o código... agradeço desde já pela ajuda de todos... os objetos estão sendo importados form de login Imports System.Data.OleDb Public Class frnovousuario Private ds As Object Private dt As Object Private conexao As Object Private da As Object Private Sub Btn_limpar_Click(sender As Object, e As EventArgs) Handles Btn_limpar.Click Txt_nomeusuario.Text = "" Txt_senhausuario.Text = "" Cmb_classeusuario.Text = "" End Sub Private Sub Btn_cancelar_Click(sender As Object, e As EventArgs) Handles Btn_cancelar.Click Me.Hide() frinicio.Show() End Sub Private Sub Btn_salvar_Click(sender As Object, e As EventArgs) Handles Btn_salvar.Click If Txt_nomeusuario.Text = "" Then MsgBox("Informe o Nome de Usúario", vbInformation) : Txt_nomeusuario.Focus() ElseIf Txt_senhausuario.Text = "" Then MsgBox("Informe a Senha de Usúario", vbCritical) : Txt_senhausuario.Focus() ElseIf Cmb_classeusuario.Text = "" Then MsgBox("Informe a Classe de Usúario", vbInformation) : Cmb_classeusuario.Focus() ElseIf Txt_nomeusuario.Text = Txt_confirmasaosenha.Text Then conexao.open() ds.Tables.Add(dt) da.Fill(dt) Dim novo As DataRow = dt.NewRow With novo .Item("Usuario") = Txt_nomeusuario.Text .Item("Senha") = Txt_senhausuario.Text .Item("Tipo") = Cmb_classeusuario.Text End With dt.rows.Add(novo) Dim cb As New OleDbCommandBuilder(da) da.Update(dt) conexao.close() MsgBox("Novo Usuária Criado Com Sucesso") Me.Close() frinicio.Show() End If End Sub End Class