江湖救急，这个该怎么办呢？

自己在写个简单的数据库程序，可是遇到了问题：

在运行的时候一直出现这个错误提示，不知道怎么处理。该NEW的已经NEW了

请看下面的程序截图：

Imports System.Data.SqlClient
Public Class mains
    Public Shared Sub Main()
        '系统从此处启动，开始连接数据库，若连接成功则显示登录框，若连接不成功则显示错误提示.
        Dim strConn As SqlConnection = New SqlConnection("server=127.0.0.1;integrated security=False;Initial Catalog=YNCSys;User ID=sa;Pwd=adminsa226200")
        Try
            strConn.Open()
            LoginForm1.Label1.Text = "已成功对接数据库，请登录"
            LoginForm1.ShowDialog()
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Question, "友情提示")
        End Try
    End Sub
    '登录系统
    Public Sub login(ByVal txtuser As TextBox, ByVal txtpwd As TextBox)
        Dim objSqlConnection As New SqlConnection
        Dim objSqlDataAdapter As New SqlDataAdapter("select * from UserInfo where User_Name= '" + txtuser.Text + " 'and  PassWord='" + txtpwd.Text + "'", objSqlConnection)
        Dim ds As New DataSet
        objSqlConnection.ConnectionString = "server=127.0.0.1;integrated security=False;Initial Catalog=YNCSys;User ID=sa;Pwd=adminsa226200"
        objSqlDataAdapter.Fill(ds, "LOG")
        If ds.Tables(0).Rows.Count <= 0 Then
            Dim strdia As New Info
            strdia.strmsg("用户名或密码错误，请确认后重新登录", "友情提示")
            LoginForm1.UsernameTextBox.Focus()
        Else
            LoginForm1.Hide()
            fmMain.ShowDialog()
        End If
    End Sub
    '绑定主界面的DATAGRIDVIEWS控件，顶格显示“序号”
    Public Sub BDfmMainDataGridView(ByVal DGV As DataGridView)
        DGV.TopLeftHeaderCell.Value = "序号"
        Dim DS As New DataSet
        Dim MyConnection As New SqlConnection
        Dim MyDataAdapter As New SqlDataAdapter
        MyConnection = New SqlConnection("server=127.0.0.1;integrated security=False;Initial Catalog=YNCSys;User ID=sa;Pwd=adminsa226200")
        MyConnection.Open()
        MyDataAdapter = New SqlDataAdapter("StoredProcedure1", MyConnection)
        MyDataAdapter.SelectCommand.CommandType = CommandType.StoredProcedure
        DS = New DataSet
        MyDataAdapter.Fill(DS, "StoredProcedure1")
        DGV.DataSource = DS.Tables("StoredProcedure1").DefaultView
        For i As Integer = 0 To DS.Tables.Count - 1
            DGV.Rows(i).HeaderCell.Value = (i + 1).ToString
        Next
        MyDataAdapter.Dispose()
        MyConnection.Close()
    End Sub
End Class
 

 

 请问各位大佬该怎么处理这个错误？谢谢了！