Sql server SQL日期格式

我正在使用SQL Server，我正在创建一个向数据库添加记录的程序。但是，数据库中的出生日期字段不被接受

在服务器端，MS Express SQL server上的数据类型为“日期”，应为YYYY-MM-DD。但是，当尝试从程序中“上载”新记录时，日期将被拒绝。我知道这取决于我如何格式化它们，特别是我知道它实际上只是两行代码；但我不能让它继续

  SQL = "Insert into PersonsA(Members_ID," & _
          "Gamer_Tag," & _
          "Screenname," & _
          "First_Name," & _
          "Last_Name," & _
          "DoB," & _
          "E_Mail_Address," & _
          "Position," & _
          "U_G_Studio," & _
          "Cautions," & _
          "Record," & _
          "Event_Attendance," & _
          "Member_Status) values('" & Me.midtxt.Text.Trim & "'," & _
          "'" & Me.gttxt.Text.Trim & "'," & _
          "'" & Me.sntxt.Text.Trim & "'," & _
          "'" & Me.fntxt.Text.Trim & "'," & _
          "'" & Me.lntxt.Text.Trim & "'," & _
          "" & Val(Me.dobtxt.Text) & "" & _ 'THIS IS THE DATES OF BIRTHS
          "'" & Format(Me.dobtxt.Text, "YYYY-MM-DD") & "'," & _ 'THIS IS FORMATTING
          "'" & Me.emailtxt.Text.Trim & "'," & _
          "'" & Me.teamptxt.Text.Trim & "'," & _
          "'" & Me.ugptxt.Text.Trim & "'," & _
          "'" & Me.ugctxt.Text.Trim & "'," & _
          "'" & Me.recordtxt.Text.Trim & "'," & _
          "'" & Me.eventatxt.Text.Trim & "'," & _
          "'" & Me.Mstattxt.Text.Trim & "')"

正如你所看到的，我遇到的两条问题是：

    "" & Val(Me.dobtxt.Text) & "" & _ 
   "'" & Format(Me.dobtxt.Text, "YYYY-MM-DD") & "'," & _ 

---

我知道这会很愚蠢，但我对编程还不熟悉

拒绝您的命令字符串并开始使用

---

拒绝命令字符串并开始使用

---

拒绝命令字符串并开始使用

---

拒绝命令字符串并开始使用

---

不要使用Val-这是一个不成熟的兼容性实现。使用Date.Parse、Date.TryParse或Convert.ToDateTime这将在将来为您省去很多麻烦。不要使用Val-为了兼容性，它是一个不成熟的实现。使用Date.Parse、Date.TryParse或Convert.ToDateTime这将在将来为您省去很多麻烦。不要使用Val-为了兼容性，它是一个不成熟的实现。使用Date.Parse、Date.TryParse或Convert.ToDateTime这将在将来为您省去很多麻烦。不要使用Val-为了兼容性，它是一个不成熟的实现。使用Date.Parse、Date.TryParse或Convert.ToDateTime这将在将来为您节省很多麻烦。

Dim conn As New SqlConnection("conStr")
Dim cmd As SqlCommand = conn.CreateCommand()

cmd.CommandText = "INSERT INTO [PersonsA] ([Members_ID], [Gamer_Tag]) VALUES (@Members_ID, @Gamer_Tag);"
cmd.Parameters.AddWithValue("@Members_ID", Me.midtxt.Text.Trim) '<- If Int type change to: Integer.Parse(Me.midtxt.Text.Trim)
cmd.Parameters.AddWithValue("@Gamer_Tag", Me.gttxt.Text.Trim)

conn.Open()
cmd.ExecuteNonQuery()

cmd.Parameters.AddWithValue("@MY_DATE_PARAM", Date.Parse(Me.dateTextBox.Text.Trim))