'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