شرح استخدام هذه الداله

السلام عليكم ... هذه دالة لجلب البيانات , حاولت استخدمها لجلب البيانات الى داتا جريد وتكست بوكس ولكن يظهر لي خطأ

ارجوا توضيح طريقة استخدامها....

  Public Function SQLReturn(ByVal SQLstatment As String) As DataSet
        Dim ds As New DataSet
        Try
            If cn.State = ConnectionState.Open Then
                cn.Close()
            End If
            cn.Open()
            Dim sda As New OleDbDataAdapter(SQLstatment, cn)
            sda.Fill(ds)

        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cn.Close()
        End Try
        Return ds
    End Function