Private Sub DataGrid1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs)
Dim t As DataTable
    Dim rc As Integer
    Dim r As DataRow
        rc = DataGrid1.CurrentRowIndex
        getemp (rc)
    End Sub

a messagebox appear that show user-defined type not defined
i had try another code but it still same error.. i'm using vb6