Hi Everyone,

I am trying to connect database thru VB and it works. But, i am reading an input from other workbook. My required input should be 9 digits. While am reading the input there is a chance of input with less than 9 digits. So,i want to make sure that changing the input value into 9 digits and i tried with
"ssn =FORMAT( x.Sheets("Sheet1").Range("B" & i).Value, "000000000")" but it showing an error called " '[IBM] [CLI Driver] [DB2/LINUXX8664] SQL0420N Invalid character found in a character string argument of the function "DECFLOAT".SQLSTATE =22018."

Example :
Input sheet : 123456
Required data : 000123456

Private Sub PIN_Click()
Dim x As Workbook
Set x = Workbooks.Open("C:\Test data.xlsx")
a = WorksheetFunction.CountA(Worksheets(1).Columns(2))
For i = 2 To a
ssn = x.Sheets("Sheet1").Range("B" & i).Value
ssn = "'" & ssn & "'"
'ssn =FORMAT( x.Sheets("Sheet1").Range("B" & i).Value, "000000000")
Set conn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
conn.Open database, TextBox1.Value, TextBox2.Value
Sql = "select sso.FUNC_DECRYPT_STR (password) from SSO.SSO_USER where sso_user_id =" & ssn
rs.Open Sql, conn
Set rs = conn.Execute(Sql)
If Not rs.EOF Then
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("I" & i).Value = rs.Fields(0).Value
Else
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("I" & i).Value = "Data not found"
End If
rs.Close
Sql = "select sso.FUNC_DECRYPT_STR(ALPHA_PASSWORD)  from SSO.SSO_USER where sso_user_id =" & ssn
rs.Open Sql, conn
Set rs = conn.Execute(Sql)
If Not rs.EOF Then
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("J" & i).Value = rs.Fields(0).Value
Else
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("J" & i).Value = "Data not found"
End If
rs.Close
Sql = "select USERNAME from SSO.SSO_USER where sso_user_id =" & ssn
rs.Open Sql, conn
Set rs = conn.Execute(Sql)
If Not rs.EOF Then
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("K" & i).Value = rs.Fields(0).Value
Else
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("K" & i).Value = "Data not found"
End If
rs.Close
Sql = "select employee_id from SSO.SSO_USER where sso_user_id =" & ssn
rs.Open Sql, conn
Set rs = conn.Execute(Sql)
If Not rs.EOF Then
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("L" & i).Value = rs.Fields(0).Value
Else
Excel.Workbooks("Test data.xlsx").Worksheets("Sheet1").Range("L" & i).Value = "Data not found"
End If
rs.Close
conn.Close
Next
MsgBox "done"
x.Save
x.Close
End Sub