Public Function SQL_READ(SQL As String) As DataTable
    Dim Conn As New SqlConnection("User ID=" + START.gl_Username + ";Password=" _
      + START.gl_Password + ";Initial Catalog=" + START.gl_Database + ";Data" & _
      "Source=" + START.gl_Server)
    Dim da As SqlDataAdapter = Nothing
    Dim tb As New DataTable
 
    Try
      Conn.Open()
      da = New SqlDataAdapter(SQL, Conn)
      da.Fill(tb)
      Conn.Close()
    Catch ex As Exception
      MsgBox("Fehler: " & vbCrLf & ex.Message)
      MsgBox(SQL)
    End Try
 
    If IsNothing(tb) Then Return Nothing Else Return tb
 
  End Function