You can try this.
oCompany.Server = txtServerName.Text ' "192.168.1.33\R2"
oCompany.DbUserName = txtDbUser.Text
oCompany.DbPassword = txtDbPass.Text
oCompany.CompanyDB = txtDbName.Text
oCompany.UserName = txtSAPUser.Text
oCompany.Password = txtSAPPass.Text
oCompany.LicenseServer = txtLicenseServer.Text ' "192.168.1.33"
oCompany.DbServerType = cmbServerType.EditValue
oCompany.language = SAPbobsCOM.BoSuppLangs.ln_English