--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/UnitTests/Linq/VisualBasicCommon.vb	Thu Mar 27 21:46:09 2014 +0400
@@ -0,0 +1,25 @@
+Imports Data.Linq.Model
+
+Public Module VisualBasicCommon
+
+    Public Function ParamenterName(ByVal db As ITestDataContext) As IEnumerable(Of Parent)
+        Dim id As Integer
+        id = 1
+        Return From p In db.Parent Where p.ParentID = id Select p
+    End Function
+
+    Public Function SearchCondition1(ByVal db As ITestDataContext) As IEnumerable(Of LinqDataTypes)
+        Return _
+            From t In db.Types _
+            Where Not t.BoolValue And (t.SmallIntValue = 5 Or t.SmallIntValue = 7 Or (t.SmallIntValue Or 2) = 10) _
+            Select t
+    End Function
+
+    Public Function SearchCondition2(ByVal db As NorthwindDB) As IEnumerable(Of String)
+        Return _
+            From cust In db.Customer _
+            Where cust.Orders.Count > 0 And cust.CompanyName.StartsWith("H") _
+            Select cust.CustomerID
+    End Function
+
+End Module