مشكله عند الدخول في البرنامج - نسخة قابلة للطباعة

كود :
Imports System.Data.OleDb



Public Class Login

    Public ds As New DataSet

    Private Sub OK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK.Click

        ds.Clear()

        Dim data As New OleDbDataAdapter("select Approve,SMR,KH,SA,NA,MOD1,AH,NO,AZ,MA,SJ,MOA,HA,OL from users where User='" & Trim(TextBox1.Text) & "' and Pass = '" & Trim(TextBox2.Text) & "'", con)

        con.Open()

        data.Fill(ds, "users")

        con.Close()

        If ds.Tables("users").Rows.Count = 0 Then

            MsgBox("Please check username or Password")

        Else

            check_premission()

            Me.Dispose()

            Main.Show()

        End If

    End Sub



    Private Sub Cancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel.Click

        Me.Close()

    End Sub



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

        If users_count() = True Then

            MsgBox("we will add you admin", MsgBoxStyle.Information)

            Me.Dispose()

            Formnewuser.Show()

            Exit Sub

        End If

    End Sub



    Function users_count()

        Dim cmd As New OleDbCommand("select count(*) from users", con)

        If con.State = ConnectionState.Open Then

            con.Close()

        End If

        Dim count As Integer = 0

        con.Open()

        count = cmd.ExecuteScalar()

        con.Close()

        If count = 0 Then

            Return True

        Else

            Return False

        End If

    End Function

    Sub check_premission()

        SMR = ds.Tables("users").Rows(0)(0)

        KH = ds.Tables("users").Rows(0)(1)

        SA = ds.Tables("users").Rows(0)(2)

        NA = ds.Tables("users").Rows(0)(3)

        MOD1 = ds.Tables("users").Rows(0)(4)

        AH = ds.Tables("users").Rows(0)(5)

        NO = ds.Tables("users").Rows(0)(6)

        AZ = ds.Tables("users").Rows(0)(7)

        MA = ds.Tables("users").Rows(0)(8)

        SJ = ds.Tables("users").Rows(0)(9)

        MOA = ds.Tables("users").Rows(0)(10)

        HA = ds.Tables("users").Rows(0)(11)

        OL = ds.Tables("users").Rows(0)(12)

        Approve = ds.Tables("users").Rows(0)(13)

    End Sub

End Class