Use below code.
Dim dtpDateReceived As Date
Dim dtpDateAssessed As Date
Dim dtpDateManufactured As Date
Dim dtpCustomerBuildDate As Date
If Not Date.TryParse(txtDateRecieved.Text, dtpDateReceived) Then
dtpDateReceived = New Date(1900, 1, 1)
lblMessageError.Visible = True
lblMessageError.Text = "Incorrect Date Recieved"
End If
If Not Date.TryParse(txtDateAssessed.Text, dtpDateAssessed) Then
dtpDateAssessed = New Date(1900, 1, 1)
lblMessageError.Visible = True
lblMessageError.Text = "Incorrect Date Assessed"
End If
If Not Date.TryParse(txtDateManufactured.Text, dtpDateManufactured) Then
dtpDateManufactured = New Date(1900, 1, 1)
lblMessageError.Visible = True
lblMessageError.Text = "Incorrect Date Manufactured"
End If
If Not Date.TryParse(txtCustomerBuildDate.Text, dtpCustomerBuildDate) Then
dtpCustomerBuildDate = New Date(1900, 1, 1)
lblMessageError.Visible = True
lblMessageError.Text = "Incorrect Customer Build Date"
End If
mCR.InsertClaimReturn(....)