Public Function SqlGetDataTable(ByVal SQL As String, ByVal ParamArray _
     Parameter() As Object) As DataTable
        Dim i As Integer
        Dim ParaString As String = ""
        Dim tmpCommand As SqlCommand
        Dim tmpDataAdapter As SqlDataAdapter
        Dim tmpDataTable As DataTable
 
        tmpCommand = New SqlCommand(SQL, cn)
        If Parameter.Length > 0 AndAlso Left(Parameter(0), 1) <> "@" Then
            For i = Parameter.GetLowerBound(0) To Parameter.GetUpperBound(0)
                tmpCommand.Parameters.AddWithValue(CStr("@" & i + 1), Parameter( _
                  i))
            Next
        Else
            For i = Parameter.GetLowerBound(0) To Parameter.GetUpperBound(0) _
              Step 2
                tmpCommand.Parameters.AddWithValue(Parameter(i), Parameter(i + _
                1))
            Next
        End If
        tmpDataAdapter = New SqlDataAdapter(tmpCommand)
        tmpDataTable = New DataTable
        tmpDataAdapter.Fill(tmpDataTable)
        Return tmpDataTable
    End Function

dtTemp = SqlGetDataTable("SELECT top 100 percent * FROM usviwNKArchiv WHERE ANr" & _
  "= '1348090'")