گرفتن داده از ديتابيس و قراردادن در متغير

با سلام
لطفا در خصوص گرفتن داده از ديتابيس و قراردادن در متغير راهنمايي بفرماييد.
باتشكر

سلام دوست عزیز اول دیتا مربوطه رو از دیتابیس استخراج میکنید(حالا بستگی به نوع استفاده و بهره برداریتون داره) و بعد درون یک متغیر قرار میدین
مثل کد پایین

Dim a As Integer

        a = CType(Me.TestTableAdapter.ScalarQuery, Integer)