problema con coneccion de vb.net a sql server

[yaasurs]

estoy agregando datos a una tabla con este codigo:

Código:

Imports System.Data.SqlClient
Imports System.Data.SqlClient.SqlDataAdapter
Imports System.Data.OleDb
Imports System.Data.Common
Imports System.Data

Public Class Form1

    Dim cn As New SqlConnection("Data Source=desktop-6b845c63\SQLEXPRESS;Initial Catalog=proyecto;Integrated Security=True")
    Dim obmb As BindingManagerBase
    Dim dt As New DataTable
    Dim ds As New DataSet

    Public Sub insertar()
        Dim daconsulta As New SqlDataAdapter("select * from usuarios", cn)
        dt.Clear()
        daconsulta.Fill(dt)
        Dim i As Integer = dt.Rows.Count
        Dim t As Integer
        t = i + 1
        Dim dainsertar As New SqlDataAdapter("insert into usuarios (id_usuario, usuario, password, nombre, apellido, email, nivel, conectado) values ( 2, 'minombre', cualquiera, usuario, apell, [email protected], administrador,false)", cn)
        dt.Clear()
        'If dainsertar.Fill(dt) Then
        '    MsgBox("correcto")
        'End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.insertar()
    End Sub
End Class

para empesar no me ingresa los datos, ademas me muestra un error en:

Código:

 If dainsertar.Fill(dt) Then
           MsgBox("correcto")
        End If

me pueden ayudar a resolver este problema?