Conversion failed when converting date and/or time from character string

  
  Dim ID As Integer
        Dim Company_Name As String
        Dim License_Key As String
        Dim Expiry_Date As DateTime
        Dim connetionString2 As String
        Dim connection2 As SqlConnection
        Dim command2 As SqlCommand
        Dim adpter2 As New SqlDataAdapter
        Dim ds As New DataSet
        Dim xmlFile As XmlReader
        Dim sql2 As String
 
        connetionString2 = "Server= '" & TextBox3.Text & "' ; Database = SoftSTMDM; Integrated Security = true"
        connection2 = New SqlConnection(connetionString2)
        xmlFile = XmlReader.Create(".\Product.xml", New XmlReaderSettings())
        ds.ReadXml(xmlFile)
        Dim i As Integer
        connection2.Open()
        For i = 0 To ds.Tables(0).Rows.Count - 1
 
            ID = Convert.ToInt32(ds.Tables(0).Rows(i).Item(0))
            Company_Name = ds.Tables(0).Rows(i).Item(1)
            License_Key = Convert.ToString(ds.Tables(0).Rows(i).Item(2))
            Expiry_Date = Convert.ToDateTime(ds.Tables(0).Rows(i).Item(3))
            sql2 = "insert into license values('" & ID & "', '" & Company_Name & "', '" & License_Key & "', '" & Expiry_Date & "')"
 
            command2 = New SqlCommand(sql2, connection2)
            adpter2.InsertCommand = command2
            adpter2.InsertCommand.ExecuteNonQuery()
        Next

        Dim Expiry_Date As DateTime
   sql2 = "insert into license values('" & ID & "', '" & Company_Name & "', '" & License_Key & "', '" & Expiry_Date & "')"

Dim connectionString2 As String = "Server= '" & TextBox3.Text & "' ; Database = SoftSTMDM; Integrated Security = true"
Using connection2 As New SqlConnection(connectionString2)
    Dim xmlFile As XmlReader = XmlReader.Create(".\Product.xml", New XmlReaderSettings())
    Dim ds As New DataSet
    ds.ReadXml(xmlFile)
    
    Dim command2 As New SqlCommand("insert into license values(@ID, @Company_Name, @License_Key, @Expiry_Date)", connection2)
    command2.Parameters.AddWithValue("@ID", 0)
    command2.Parameters.AddWithValue("@Company_Name", "")
    command2.Parameters.AddWithValue("@License_Key", "")
    command2.Parameters.Add(New SqlParameter("@Expiry_Date", SqlDbType.Date))
    
    connection2.Open()
    For i As Integer = 0 To ds.Tables(0).Rows.Count - 1
 
        Dim ID As Integer = Convert.ToInt32(ds.Tables(0).Rows(i).Item(0))
        Dim Company_Name As String = ds.Tables(0).Rows(i).Item(1)
        Dim License_Key As String = Convert.ToString(ds.Tables(0).Rows(i).Item(2))
        Dim Expiry_Date As DateTime = Convert.ToDateTime(ds.Tables(0).Rows(i).Item(3))
        
        command2.Parameters("@ID").Value = ID
        command2.Parameters("@Company_Name").Value = Company_Name
        command2.Parameters("@License_Key").Value = License_Key
        command2.Parameters("@Expiry_Date").Value = Expiry_Date
        command2.ExecuteNonQuery()
    Next
End Using