diff --git a/Modules.Language/DataRowEx.vb b/Modules.Language/DataTableEx.vb
similarity index 50%
rename from Modules.Language/DataRowEx.vb
rename to Modules.Language/DataTableEx.vb
index 23245305..fb130dfa 100644
--- a/Modules.Language/DataRowEx.vb
+++ b/Modules.Language/DataTableEx.vb
@@ -1,6 +1,6 @@
 Imports System.Runtime.CompilerServices
 
-Public Module DataRowEx
+Public Module DataTableEx
     <Extension()>
     Public Function ItemEx(Of T)(pRow As DataRow, pFieldName As String, Optional pDefaultValue As T = Nothing) As T
         Try
@@ -9,4 +9,16 @@ Public Module DataRowEx
             Return Nothing
         End Try
     End Function
+
+    <Extension()>
+    Public Function First(pTable As DataTable) As DataRow
+        Try
+            If pTable Is Nothing OrElse pTable.Rows.Count = 0 Then
+                Return Nothing
+            End If
+            Return pTable.Rows.Item(0)
+        Catch ex As Exception
+            Return Nothing
+        End Try
+    End Function
 End Module
diff --git a/Modules.Language/Language.vbproj b/Modules.Language/Language.vbproj
index 3384ce30..1598a26f 100644
--- a/Modules.Language/Language.vbproj
+++ b/Modules.Language/Language.vbproj
@@ -74,7 +74,7 @@
     <Import Include="System.Threading.Tasks" />
   </ItemGroup>
   <ItemGroup>
-    <Compile Include="DataRowEx.vb" />
+    <Compile Include="DataTableEx.vb" />
     <Compile Include="InvalidChars.vb" />
     <Compile Include="Utils.vb" />
     <Compile Include="My Project\AssemblyInfo.vb" />