Sub Command1_Click ()
    TableInfoForm.Hide
    TableInfoForm.Row.Clear
End Sub

Sub Form_Activate ()
    Dim field As Integer
    Dim tableinfo As TABLE_INFO
    Dim fieldinfo As FIELD_INFO

    If db_tableinfo(Db, TBL_LEUTE, tableinfo) <> FAILURE Then
        TableInfoForm.NrRec.Caption = tableinfo.recs
        TableInfoForm.NrCol.Caption = tableinfo.cols - 1    ' don't count address field
        TableInfoForm.NrInx.Caption = tableinfo.indexes
        TableInfoForm.SizeRec.Caption = tableinfo.size
        
        For field = 1 To tableinfo.cols - 1
            If db_fieldinfo(Db, TBL_LEUTE, field, fieldinfo) <> FAILURE Then
                TableInfoForm.Row.AddItem fieldinfo.name
            End If
        Next field
    End If
End Sub