Vb.net 设置字符串变量时对象引用错误

当我尝试运行以下代码时，出现以下错误：

对象引用未设置为对象的实例

---

如何修复此问题？

Me.Tag

没有值，因此无法为缺少的值调用

.ToString（）

Dim messageID As StringD=If（Me.Tag？.ToString（），“”）
conString=“数据源=HQ10-1CT-PC0；初始目录=联系人\u DB；集成安全=真”
sql=“从消息中选择*，其中M\u ID=@Mess\u ID”
将con用作新的SqlConnection（构造）_
cmd作为新的SqlCommand（sql，con）
cmd.Parameters.Add（“@Mess_ID”，SqlDbType.NVarChar，10）。Value=messageID
da.SelectCommand=cmd
da.填充（ds，“我的消息”）
终端使用
ViewMessage（）

conString = "Data Source=HQ10-1CT-PC0; Initial Catalog=CONTACT_DB; Integrated Security=True"
con.ConnectionString = conString

'Problem is on these two lines
Dim messageID As String
messageID = Me.Tag.ToString

sql = "select * from Message_tb where M_ID =@Mess_ID"
Dim cmd As New SqlClient.SqlCommand(sql, con)
cmd.CommandType = CommandType.Text
cmd.Parameters.AddWithValue(“@Mess_ID", messageID)
con.Open()
cmd.ExecuteNonQuery()
da.SelectCommand = cmd
da.Fill(ds, “myMessage")
'Me.DataGridView1.DataSource = ds.Tables("myMessages")
con.Close()
ViewMessage()