VB.Netのテーブル（時刻データ型）からラベル

レポートの作成に関して問題がありますが、その前に次のレポートの複数の条件を作成するためにコードを実行する必要があります。VB.Netのテーブル（時刻データ型）からラベル

ここに私のtbldtrのスクリーンショットがあります。私が望むのは、データ型のあるam_time_inの値がラベル/テキストボックス/変数に転送されることです。私はMySQLでVisual Basicを使用しています。ここで

は

Public Class Form1 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    checktime() 
End Sub 

Private Sub checktime() 
    Dim cn As New MySqlConnection(CnPath) 
    Dim Sql As String = "SELECT `tbldtr`.`am_time_in` FROM `tbldtr` WHERE `tbldtr`.`id` = '11' AND `tbldtr`.`dtrdate` = '2017-10-16'" 
    Dim daCmd5 As New MySqlCommand(Sql, cn) 

    cn.Open() 

    Dim datinfo As MySqlDataReader = daCmd5.ExecuteReader() 

    While datinfo.Read() 

     If IsDBNull(datinfo(0)) = True Then 
      lblamtimein.Text = "" 
     Else 
      lblamtimein.Text = datinfo(0) 
     End If 
    End While 
    cn.Close() 
End Sub

エンドクラス

エラーここに私のコードです：エラーは、この行で発生している