error data

[pekeña]

tengo ese data me sale error donde estan los asteriscos alguien me puede ayudar mi base esta en mysql



Private Sub Form_Load()

Set con = New ADODB.Connection
Set data1 = New Recordset*****************



sql = " SELECT di.DI_NUMERO as DI, empresa.EM_NOMBRE as Empresa ,empresa.EM_RUT as Rut E, di.DI_CRT as CRT, di.DI_ESTADO as Estado DI,di.DI_KNETOS as Kilos Netos FROM di, micdta, empresa WHERE di.DI_NUMERO = micdta.DI_NUMERO AND di.EM_RUT = empresa.EM_RUT "

Set Rsd = con.Execute(sql)