Resolvi el problema, dejo el codigo por si alguien en el futuro se le presenta el mismo problema, todo el problema estaba en que generalmente no se direcciona la respuesta de SQL al VBA, por ello dejo el codigo para que vean como se debe hacer
Sub Conexion_SQL()
Dim strcon, x1, x2, inst As String
Dim connec As ADODB.Connection
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Set connec = New ADODB.Connection
'Cargo los datos de la base de datos a conectar'
strcon = "Provider=SQLOLEDB.1;Password=contrasena;Persist Security Info=False;User ID=usuario;Initial Catalog=Database;Data Source=Servidor"
'Me conecto con la base de datos'
connec.Open strcon
'Cargo la instruccion que me permitira saber si existe base de datos'
x1 = "select 1 from INFORMATION_SCHEMA.TABLES where TABLE_NAME = 'Venta'"
'declaro la instruccion que me permitira saber los resultados de SQL'
rs.CursorLocation = adUseClient
'Ejecuto la instruccion'
rs.Open x1, strcon
'Ejecuto el condicional. Si no esta creada la tabla, la crea'
If rs.RecordCount = 0 Then
x1 = "create table VENTA (variable1 int, variable2 int, variable3 int)"
rs.Close
rs.Open x1, strcon
End If
End Sub