Dim Conn As ADODB.Connection
Set Conn = New ADODB.Connection
Conn.ConnectionString = strConnectionString
Conn.Open
strSQL = "UPDATE customer SET Name = '" & Me.txtName.Text & "' WHERE CustomerID = '" & Me.lblCustomerID.Text & "' "
Conn.Execute (strSQL)
If Err.Number <> 0 Then
Exit Function
End If
Conn.Close