Select * from Chat" & " where ??????

Dim cn As New ADODB.Connection
Dim rsset As ADODB.Recordset
cn.Open "Provider=SQLOLEDB;Persist Security Info=False;Initial Catalog=Admin;Network Address=" & Launcher.server_ip & ";Network Library=DBMSSOCN;User ID=abc;Password=123"
    Set rsset = New ADODB.Recordset
    Sql = "Select Max(Number) from Chat"
    Set rsset = cn.Execute(Sql)
  
'что здесь надо вставить чтобы получить максимальное значение из колонки Number в таблице Chat  ???????????????

    cn.Close
    Set rsset = Nothing
    Set cn = Nothing