If Tables("B.A").current IsNot Nothing Then Tables("B.A").Select(0,0)
End If
If Tables("B").current IsNot Nothing Then
Tables("B").Select(0,0) End If