[المبرمج العبقري]

السلام عليكم
هي المشكلة هنا فين يا اخواني
   Function GetAutoNum(TableName As String, ColName As String) As String
       Dim Str As String

       Str = "Select max (" & ColName & ") + 1 from " & TableName
       Dim tb1 As New DataTable
       tb1 = GetTable(Str)
       Dim AutoNum As String
       If tb1.Rows(0)(0) Is DBNull.Value Then
           AutoNum = "1"
       Else
           AutoNum = tb1.Rows(0)(0)
           Return AutoNum
       End If

   End Function