Dim DB As New ADODB.Connection
 
With DB
    .ConnectionString = "DSN=GLT extern;"
    .Open
End With
 
 
Dim cmd As New ADODB.Command
Dim rs As New ADODB.Recordset
 
cmd.ActiveConnection = DB
cmd.CommandType = adCmdText
cmd.CommandText = " SELECT counter_values_month.plaintext FROM" & _
  "export.counter_values_month "
Set rs = cmd.Execute
 
Label1.Caption = rs.RecordCount
 
DB.Close