تۈردىن بىرنى قىستۇرۇپ ئىشلەتسىڭىز بولىدۇ.

    Private Function LoadSalesData(strSQL As String) As Data Table
        Dim con As New SqlConnection("Data source=localhost; initial Catalog=xxx; User ID=sa; Password=sa123")
        Dim cmd As New SqlCommand(strSQL, con)
        Dim adp As New SqlDataAdapter()
        adp.SelectCommand = cmd
        con.Open()
        Dim dt As New DataTable()
        adp.Fill(dt)
        con.close()
        Return dt
    End Function