'Select the default cursor VFPToolkit.vfpData.Select(goView) iRecords = VFPToolkit.vfpData.Count(goView) Dim drv As DataRowView If iRecords > 0 Then For Each drv In goView txt_Status.Text = "Welcome: " & drv("docname").ToString Next Else txt_Status.Text = "Status: Invalid Login" End If