No declarations

Private Sub Command1_Click() ' Use Microsoft SQL DMO Object Library ' Using SQLDMO U Can Get More Features. ' If You Want To Get More Mail Me ' gehan_g7@yahoo.com ' charith_c7@yahoo.co.uk Dim SVR As New SQLDMO.SQLServer On Error GoTo error_h MsgBox "Upur Database Going To Shrink And Backup Now" Screen.MousePointer = vbHourglass SVR.Connect "RANGANA\RANGANA", "sa", "abc" Dim Temp Temp = "" Temp = " ---- Write SQL Backup Script" SVR.Databases("invacc_Duallink").Shrink 0, SQLDMOShrink_Default SVR.ExecuteImmediate Temp, SQLDMOExec_Default Or SQLDMOExec_ContinueOnError MsgBox "Completed" Screen.MousePointer = vbDefault SVR.DisConnect Set SVR = Nothing error_h: If Err Then MsgBox Err.Description SVR.DisConnect Set SVR = Nothing End If End Sub