While Not RsType.EOF
rsName.Open sString, cn, adOpenKeyset, adLockBatchOptimistic
If rsName.BOF = True Then
GoTo BREAKRSTYPE
End If
rsName.MoveFirst
LoadFrm.Show
LoadFrm.Visible = True
LoadFrm.ProgressBar1.Max = rsName.RecordCount
LoadFrm.ProgressBar1.Value = 0