一か月返事をせずにすみません。
どうにか、データベースプログラムの大半を完成させる事が出来ました。
細かい修正などが多く残っていますが、ログイン関係の問題も解決しました。
質問に答えて下さった方に大変迷惑をかけました。本当に有難うございます。

書いて頂いたコードに修正を加えましたので、記載します。

▼FmLogin▼
修正理由
修正前はSQLServerに無い情報でもＩＤとパスワードを適当に入力するだけでログインが出来た為、
RESULTを基準にSQLserverにあるデータのみログイン出来る用にしました。

Imports System.Data.SqlClient



Public Class fmlogin

    Const ConnectString As String = "Data Source=user;Initial Catalog=データベースシステム;Integrated Security=True"

    Property LoginAccount As New UserInfo

    Dim er As Double = 0



    Private Sub btnGo_Click(sender As System.Object, e As System.EventArgs) Handles btnGo.Click



        er = 0



        If TextBox1.Text.Length = 0 Or TextBox2.Text.Length = 0 Then

            MessageBox.Show("パスワードとＩＤを両方記入して下さい", "エラー！", MessageBoxButtons.OK, MessageBoxIcon.Error)

        Else

            If CheckUser(TextBox1.Text.Trim, TextBox2.Text.Trim) Then

                If er = 0 Then

                    Me.DialogResult = Windows.Forms.DialogResult.OK

                    Me.Close()

                Else

                    MessageBox.Show("入力した情報が間違っています。再度入力して下さい。", "エラー！", MessageBoxButtons.OK, MessageBoxIcon.Error)

                    TextBox1.Select()

                End If

            End If

        End If

    End Sub



    Private Function CheckUser(id As String, pass As String) As String

        Dim RESULT As String = ""

        Dim SQL As String = "SELECT ユーザー名 FROM ユーザー情報 WHERE ユーザーID ='" & Replace(id, "'", "''") & "' AND パスワード='" & Replace(pass, "'", "''") & "'"

        Using conn As New SqlConnection(ConnectString)

            Dim CMD As New SqlCommand(SQL, conn)

            Try

                conn.Open()

                RESULT = Convert.ToString(CMD.ExecuteScalar())



                LoginAccount.UserName = RESULT 

                LoginAccount.ID = id



            Catch ex As Exception

                MsgBox(ex.Message)

            End Try



            If RESULT = "" Then

                er = 1

            End If



        End Using

        Return RESULT IsNot Nothing

    End Function

▼FmBase▼
修正理由
データを登録したり修正した際にSQLに保存されるユーザーＩＤが保存されない為、※印を追加

 Private Property LoginAccount As UserInfo

    Sub New(ui As UserInfo)

        InitializeComponent()

        LoginAccount = ui

        Me.Text = ui.UserName & "が使用中"

        UserInfo.ID = ui.ID　※

    End Sub