C# と VB.NET の質問掲示板

Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click
        
 Dim LsProvider As String = "SQLOLEDB"
        Dim LsDataSource As String = "KP72202\SQLEXPRESS"
        Dim LsPreSecInf As String = "FALSE "
        Dim LsIniCat As String = "KYOIKU"
        Dim LsUser As String = "test"
        Dim LsPass As String = "test"
        Dim LrecAdo As New ADODB.Recordset
        Dim LsSyainNo As String
        Dim LsKinmuDate As String
        Dim LsKinmuTime As String

        'DBの接続
        McnnAdo.Open("Provider=" & LsProvider & ";Data Source=" & LsDataSource & ";Persist Security Info=" & LsPreSecInf & ";Initial Catalog=" & LsIniCat & ";", LsUser, LsPass)
       
        'SQL文の入力
        Dim LsSQL As String

        '検索処理用のSQLを作成
        LsSQL = "SELECT msyain.syain_id,tkintai.KinmuDate,tkintai.KinmuTime FROM msyain left join tKintai on msyain.syain_id=" & txtSyainNo.Text.Trim()

        '検索処理を実行
        LrecAdo.Open(LsSQL, McnnAdo, ADODB.CursorTypeEnum.adOpenStatic, ADODB.LockTypeEnum.adLockReadOnly)

        '検索した結果、該当データがなかった場合
        If LrecAdo.EOF = True Then
            txtSyainNo.Focus()

            'ADOオブジェクトを終了
            LrecAdo.Close()
            'ADOオブジェクトを開放
            LrecAdo = Nothing
            'DBのCiose
            McnnAdo.Close()
            Exit Sub

        End If

        LsSyainNo = LrecAdo.Fields("syain_id").Value()
        LsKinmuDate = LrecAdo.Fields("KinmuDate").Value
        LsKinmuTime = LrecAdo.Fields("KinmuTime").Value

        Dim m As Integer
        Dim F2 As Form2
        F2 = New Form2

        '確認メッセージを表示する。
        m = MsgBox("ログイン処理を行いますか？", MsgBoxStyle.YesNo)

        '上記メッセージに肯定的な応答がなされた場合サブ画面をモーダル表示する。
        If m = vbYes Then
            F2.gsSyainNo = Me.txtSyainNo.Text
            F2.ShowDialog()
        End If

        If F2.GBloginOK = True Then
            lblSyainName2.Text = F2.gsSyainNm

            txtSyainNo.Enabled = False
            btnLogin.Enabled = False
            txtDate.Enabled = True
            txtTime.Enabled = False
            btnKensaku.Enabled = True

        Else

            lblSyainName.Text = ""
            txtDate.Text = ""
            txtTime.Text = ""

        End If
        'ADOオブジェクトを終了
        LrecAdo.Close()
        'ADOオブジェクトを開放
        LrecAdo = Nothing
        'DBのCiose
        McnnAdo.Close()

        Me.txtDate.Focus()

    End Sub

> LsKinmuDate = LrecAdo.Fields("KinmuDate").Value
> で発生してます。

そのとき、LrecAdo.Fields("KinmuDate").Value が null なのではいかしら。
nullはつまり空(価がない)ので文字列に変換できません。

nullを空文字として扱いたいのならば

If 検索結果がnull Then
  LsKinmuDate = ""
Else
  LsKinmuDate = LrecAdo.Fields("KinmuDate").Value
EndIf

みたいな処理が必要かと。