More great naming

[Rob Grainger]

This one speaks for itself...

Private Sub LoadGrid()
Dim SQL As String
Dim x As Long
Dim rst As New ADODB.Recordset

txtMode.Text = mode
txtPID.Text = PID
txtPolTypeID.Text = policytypeid

' This pattern is used everywhere, even when, as here, the value is guaranteed to be a string.
x = Val("" & txtPID.Text)           

End Sub

"If you don't fail at least 90 percent of the time, you're not aiming high enough." Alan Kay.